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News and Reviews 


Mike Dunn, Co-Editor 
First of all, please remember our dues are now $14 year or $24 air- 
mail overseas. Groups may order 10 or more at a 40% discount to the 
same address by 3rd class mail or plus $12 year priority mail. 


Last month, a new Atari magazine was started called The Atari Ex- 
plorer. This replaces the old magazine put out by the Atari company, 
The Atari Connection, and includes all the information about the new 
Ataris. There is also a very nice article by David and Dorothy Heller 
about our club which has brought us many new members (Thanks, 
Dave and Dorothy!). There are many fine articles and you can get 
yours for only $15 a year (6 issues). | had to wait until | saw it at a 
newstand to buy it, and was pleased with it. Incidently, the Hellers 


have introduced ACE to many members through their book, Free Soft- 


ware for the Atari, so we have a lot to be thankful to them. We are all 
anxiously awaiting the arrival of the new Atari Line and hope to give 
you the scoop on them after we can try them. 


This month, we received two new book in the OMNI series by Col- 
lier Books (division of Macmillan Publishing Co., 866 Third Ave., N.Y. 
10022). The first was OMNI Complete Catalog of Computer Hardware 
and Accessories ($14), a goldmine of practical information, advice and 
reviews on all types of computer equipment (they really like the Atari 
800XL!). For someone like myself who goes to computer garage sales 
and buys slightly used items, it is indispensable. Lots of very useful 
information, and, of the reviews of equipment | know about, very ac- 
curate. The other is the new OMNI Online Database Directory 1985 
($15), which is a complete evaluation of over 1100 databases including 


the usual ones such as the Source and CompuServe, and many. 


special service ones ranging in cost from nothing other than the 
phone bill to $1000 a month or more. Incidently, | hear the Delphi is 
very good and now has a large Atari SIG, and costs $6 hour including 
1200 BAUD. 


Jerry White, the prolific software author of many well known Atari 
programs (Trivia Trek, Poker S.A.M., U.S. Adventure, MusicBox, Filelt2, 
and many others) now has come out with a utility disk of programs he 
uses commercially in his program development. Called Animation Us- 
ing Character Graphics — a tutorial/utility package it is available only 
direct from Jerry for $12 (18 Hickory Lane, Levittown, NY 11756. The 
programs are public domain — you can use them for your program 
development — but the disk is not. Using your Atari and a program 
such as the Datasoft MicroPainter, Graphics Master or the Versa 
Writer, it allows you to make pictures on the screen and convert them 
to character graphics requiring much less memory, animate them, etc. 
The disk has seven utilities and is designed for programmers. 


Synapse, the originators of FileManager and the Syn series, as well 
as a number of fine games is now a division of Broderbund. They have 
just released a number of interactive novels which should be very in- 
teresting, to say the least. This is a new art form, and allows you to 
pick alternate paths so the novel has an almost infinite number of 
variations. 


In future issues, we have many fine programs and articles. The U.K. 
Atari Owners Club (POB 3, Rayleigh, Essex, England, 7lbs. Sterling 4 
issues or 10lbs50 Airmail) has a very fine newsletter and many pro- 
grams of the type Stan Ockers and Sydney Brown give us, and we 
hope to reprint some of them over the next few months. Paul 
Freeman, a new ACE member, sent us a sample disk of his programs 
and they are also of this quality; he is an experienced writer also and 
has promised us articles to go along with these programs — wait till 
you see his educational program on the living cell!! Ralph Walden will 
be submiting programs in ACE-C, and the prolific John Kelly will con- 
tinue to send mostly educational programs. Not to mention Stan 
Ockers and Sydney Brown. Lots of good stuff coming up. 
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FLASH 





The March issue of BYTE, 
now on the newstands, feature 
the new Atari computers, and 
they like them!! 


NEXT MONTH: À wonderful 
educational program by Paul 
Freeman, The Living Cell, has 
impressive graphics and is 
very entertaining- welcome to 
ACE, Paul. Stan Ockers will 
continue his Label program as 
mentioned above, and who knows 
what else? 
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BUMPAS REVIEWS 


Correction! In the February, 1985 issue, | reviewed the game, FIELD 
OF FIRE, a very good game. Unfortunately | attributed the game to 
Avalon Hill. Avalon Hill might wish they had the game in their line-up, 
but the game is sold by STRATEGIC SIMULATIONS, Inc. for $39.95. | 
hope no one was unable to find the game because of my error. 


Atari continues to do things right. Apparently, DOS 3.0 will be 
treated to a well-deserved exit. Enter DOS 2.5! 

DOS 2.5 will be easy to operate for anyone familiar with DOS 2.0. it 
presents the familiar screen menu. It will freely access any disk for- 
matted in the DOS 2.0 type format. But it has some additions. 

It permits automatic use of the dual density format of the Atari 1050 
and the Indus GT. Whenever you format a disk, it assumes you want 
the 1010 sectors available in this mode. If the drive responds, unable 
to format in this mode, the DOS automatically assumes it's an 810 
and formats the disk in single density. A new “P” command is added 
to the menu to force single density formatting if desired. Appropriate 
XIO commands have been added to access these functions from 
BASIC. 

DOS 2.5 gives you 1010 sectors (999+ shows on the Directory 
when the disk is empty). When the disk is full, any files in sectors 
721-1010 are highlighted. These files will not be accessible with any 
other DOS. I tried MYDOS 3.013, SmartDOS, TOPDOS, DOS 2.0, DOS 
2.6f, DOSXL and MachDOS. All of them read the disk as though it was 
single density with only 720 sectors. Even the file names of the files in 
those higher sectors could not be listed. They are invisible to these 
DOS. 

Sector reading utilities, such as are available in DiskWiz, are able to 
manipulate the data in these sectors. And SynFile + and SynCalc are 
fully able to use files in this format. This is a minor incompatibility of 
DOS 2.5 with other DOS. Inconsequential when compared with the 
problems of DOS 3.0. | was unable to use DOS 2.5 to access a double 
density disk on the Indus GT. Another minor problem. This is the only 
item | want to see improved. f 

Just as with double density disks, you cannot read a dual density 
disk on an 810-type drive, no matter what DOS you use. You must have 
a drive capable of accessing the 1050 dual mode. 

The beta-test disk from Atari had another interesting file on it, 
which | was unable to use. lt has an intriguing name: 
"RAMDISK.SYS". | believe this is a handler which automatically 
makes the extra 64k a available to the users of the new 130XE 
machines! | dunno — maybe it will also work with Axlon and Mosaic 
boards in our old 800's. If anyone tries this, let us know and we'll 
share the information. 

My drive #1 is an Atari 1050. | use an Indus GT as drive 2. DOS 2.5 
provides me with the first meaningful opportunity to use the 1050's 
dual mode since | chose not to use DOS 3.0. DOS 2.5 is yet another 
sign that the combination of Tramiel and Atari produces a computer 
company which knows what to do in today's market place. 


The Journal of Computers in Mathematics and Science Teaching is 
a quarterly published by the Association for Computers in 
Mathematics and Science Teaching. Subscriptions are $18 to: ACM- 
ST, Box 4455, Austin, TX 78765. 


User-to-User plans to publish a quarterly catalog of "wierdware for 
$4 an issue. July, 1985 is the projected first publication date. They 
plan to have more than 200 programs in this first issue. The programs 
will all be priced under $20. Rates for program descriptions is $15/100 
words. So, if you have a program you developed for your own use, 
maybe someone else might also have a use for it. 

Non-programmers will have the opportunity to buy new and current 
software at reasonable prices. Clubs can advertise their libraries. The 
catalog will also offer clubs additional exposure in which to expand 
their membership base. The catalog will include a special appendix 
for clubs. 

User-to-User is based on the premise that if there was a need for so- 
meone to write a particular piece of software, then there are others 
who can also use it. The catalog will be advertized in national com- 
puter magazines. For more information, send a SASE to User-to-User, 
Box 2605, Eugene, OR 97402. 


CMOS 6502 

Now the price of CMOS 6502 chips are as low as $8, many Atari 
users are upgrading to this chip by replacing their old 6502 CPU. 
There are a number of advantages. The new chip adds a couple dozen 
new op-codes which make programming easier (these programs will 
only run on a CMOS chip). The new chip is “low-power”, meaning it 
uses only about 1/100 the power of the old chip — less chance of 
over-heating (mine never did overheat). The new chip also has a better 
floating point math package, so it crunches numbers faster than the 
old chip. Best of all, the CMOS is perfectly compatible with the Atari 
400/800. 


Now for the bad news. It's not compatible with the XL Ataris, and so 
probably not with the XE series, either. And even 400/800 users might 
not want to upgrade because certain software vendors sell protected 
software which crashes upon finding a non-conforming chip on the 
board. | believe some of the products from Electronic Arts and 
Synapse will not work with this chip installed. | could not get Syn- 
File+ to work, but SynCalc did. 

If you don't use the few products which crash out when they find 
these chips, you might find them a useful and inexpensive upgrade to 
make. 


COMPUTELY DIFFERENT ($1 and a stamped, self-addressed 810 
envelope to Maia Nemzek, 1818 20th Avenue 8302, Seattle, WA 98122) 
intends to stimulate creative ideas, lively discussion, and high-quality 
applications. The following themes are in the first issue: Noxious Ef- 
fects of Computer Technology; Computer Applications in the Arts; 
Disalienation: Computing for Connectedness; Are Computers 
Political?; Home and Personal Applications: Types of software that 
don't exist ... yet. 


BEYOND CASTLE WOLFENSTEIN 


Beyond Castle Wolfensein is a sequel to the adventure game Castle 
Wolfenstein. The object of this game is to sneak into Hitler's private 
bunker, find the bomb hidden by your cohorts and place it in the con- 
ference room. You are supllied with a gun, some money, and a random 
number of passes. Not all of the passes supplied to you are the cor- 
rect passes for that level. More bullets, money and passes can be ob- 
tained from the bodies of dead guards (of course you must kill them 
first). 

The guards you encounter may either be bribed or shown a pass. If 
you get the wrong pass beware. Guards at the main desk to each room 
complex may be bribed for clues, but these are often cryptic at best. 
Each room has at least one door or way out. It may also have a locked 
closet, which you must pick to enter. The game states that by listen- 
ing carefully you can hear the tumblers click when you get the correct 
combination. Unfortunately if there is a guard present the sound as he 
marches back and forth will drown out the tumbler's click. 

This game may be played with either a joystick or the keyboard. The 
use of the joystick creates a much better feel for the fact that you are 
often required to aim the gun in a rather precise manner to ac- 
complish a task, whether killing a guard or opening a locked closet. 
There are five levels to the game. With the toughest level simply call- 
ed ''22?22?". You are allowed all the standerd save game options plus 
some quick start games such as New Game New Bunker level one or 
New Game New Bunker current level. Along the way in the game 
beware of what you leave behind because a dead guard which is 
discovered on another level can trigger an alarm and then getting out 
is truly a challenge. If you enjoyed Castle Wolfenstein then you'll en- 
joy this one as well. 

— Nick Chrones 


COMPUTER AMBUSH 


Computer Ambush (SSI, $60) is a squad-level game representing in- 
fantry combat in World War Il. You can lead from 1-10 soldiers into 
battle from North Africa to France, or Italy to Russia. 

Your mission takes place in a small town. Your objective can be to 
mop up some German holdouts, or to destroy a Nazi command post. 
Your weapons include rifles, automatic rifles, machineguns, 
grenades, knives, and plastic explosives. Both natural and unlimited 
sighting are allowed, along with three skill levels: Volksgrenadiers 
(green), Wehrmacht (average), or SS (excellent). 

| always play the SS, and | usually lose! The game disk includes 5 
Solitare scenarios and 7 two-player scenarios. One of the two-player 
games is a design-your-own where players can create any situation of 
WW || they want. Two 10-man squads are included on the disk, and 
the game has features for the creation of more squads. Each of your 
soldiers is rated for strength, dexterity, firing ability, and throwing 
ability. To help those of us who have difficulty handling ten soldiers at 
a time, SSI thoughtfully included two plastic covered maps, two 
grease pencils, and two quick reference cards. 

| really LOVE this game. It uses a proportional movement, so all the 
actions of your soldiers can be simultaneous. For those of you who 
like board games such as Squad Leader by Avalon Hill, and are 
thoroughly disgusted at extensive line-of-sight rules, rejoice! In Com- 
puter Ambush, the computer handles the hard parts and lets you 
worry about simple things like: Is that soldier’s rifle loaded? or Will 
the grenade blow up your soldier as well as the Germans? This is as 
much a role playing game as it is a WW II simulation. An excellent 
game for the advanced wargamer 

— Aaron Ness 


VP’s RAMBLINGS 


lve heard from a number of you expressing your complaints about 
magazines, software houses etc., and when we have what we consider 
to be enough complaints about a specific subject or business we will 
try to act on your behalf. Remember if you don't write we can't right 
your wrong. 

We are going to have a contest, and this contest is for those of you 
who like to do graphics. We want new designs for the cover of the 
newsletter, both the overall format, and specific graphic dumps. In ad- 
dition we want a new opening for our BBS. The prizes will be free 
memberships in ACE, special levels on the BBS no one else has, and 
disks of programs made up with customized menus just for the win- 
ners. Mext month | will lay down the rules and everyone is eligible 
whether they are a member or not. There will be many winners and | 
hope to see alot of good ideas and graphics from all of you who read 
ACE. 

If any of you want to see specific types of programs, articles, etc., 
there again please let us know so we may make this newsletter more 
responsive to your needs. If we don’t hear from you we don't always 
know what you want and can only guess and put in the material we 
think you want to read. We also don’t always get the material we want 
to see so if you have programs or articles you want to share with other 
Atari users let us know about them and if we feel they will go in this 
newsletter we will publish what you send. Somewhere someone may 
be looking for that program you wrote and haven't let anyone know 


about. 
— Larry Gold 


MMG BASIC COMPILER 


This product has been well advertised in ANTIC and in ANALOG 
with full page ads proclaiming it as the “ultimate” Basic compiler. 
From my experience with it | find it is does not live up to its claims. It 
is, in fact, not a very reliable compiler and certainly not worth the $99 
retail price tag. 

I tried this compiler for over 2 months during which time | used it on 
41 different Atari Basic programs. Of the total number of programs, 
only 17 compiled successfully. 

My procedure was to first testout the basic program to make sure it 
functioned before compiling. Then as a precaution, | cleared the 
variable table thru the List, New, Enter, Save technique. My next step 
was to determine whether the Floating Point Library was necessary 
and load the appropriate files from the Master Disk into a disk in Drive 
2. At this time | also loaded the program | wished to compile onto 
Drive 2. | used 2 drives to avoid extensive disk Swapping. 

Unless there were obvious decimals and fractions | used the |ո- 
teger library file and compiled the program. During compilation | 
seldom encountered system errors, but when | did it was usually 
when | had attemped to chain several programs together (supposedly 
allowable). At this time | often got a 129 error — too many channels 
open (Even when they were closed). | got around this by trapping the 
error to the line running the next program in the chain. 

Another system error | got a lot was "Undefined Line number" 
which means the program referenced a non-existent line. Since this 
was never the case, | bypassed the error and finished the compilation 
anyway. Somtimes the program ran anyway. 

Sometimes a program failed to run with no error messages or ex- 
planation of any kind from the program or manual. This frustrating 
development resulted in (1 System lockup or (2 a blown display list — 
or both. 

My last procedure was to libraries — Integer for Floating Point or 
Vice Versa. This only worked once. 

It should be obvious by now the MMG COMPILER is not the promis- 
ed answer. Save your money! If you need a compiler stick with the 
ABC MONARCH, for the present, as the most reliable compiler even 


with its "Floating Point" limitations. 
— Graham Smith 


HAPPY DRIVES BASIC SLOWDOWN 


Hello folks. | realize it has been a LONG time since | last sat down 
and wrote an article. Well, here is a neat program | wrote a while ago. 
This program allows an owner of HAPPY DRIVES to perform a 
‘SLOWDOWN’ in BASIC. | have included many REM statements and 
used the Atari labels as variable names to make understanding the 
program easier. 

— Shane Rolin 
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INDEXED FILES MADE EASY 


Indexed files can be used for quick, random retrieval of data, much 
faster than for direct or sequential files. Generally speaking, indexed 
files consist of two files. One file contains the data you require and 
the other file contains the indices or keys pointing to the data records. 
In this article, as a demonstration, we will create a quick-access 
telephone number file. 

By carefully studying how to use the BASIC commands, NOTE and 
POINT, we can easily see how to create and use indexed files. Briefly, 
NOTE #X,SEC,BYT will determine the position of the disk drive's 
pointer on the file opened on channel #X. It will return the values of 
the sector and byte of the pointer to the variables, which in this case 
are SEC and BYT. POINT #X,SEC,BYT will set the pointer to the byte 
located at sector, SEC, and byte, BYT, on the file opened to channel 
HX. 

In Listing 1, which is the main program, the keys or indices are held 
in a file called "KEYS". During execution the entire file is in memory 
allowing rapid access. Each entry in "KEYS" is 12 bytes long: the first 
six bytes are the key and the next six contain the sector and byte in- 
formation pointing to the corresponding telephone data stored on 
disk in another file called *TELEPHON.DAT". 

In order to easily remember the key, l use the first three letters of 
the last name and the first three letters of the first name. Thus the key 
for John Smith is SMIJOH. My "TELEPHON.DAT"file has the same 
structure as one published by Jerry White ("Phone Book", ANTIC, 
Feb. 1984, Vol. 2, No. 11). If you already have used this program and 
have a phone book file, Listing 2 will create a "KEYS" file from your 
“TELEPHON.DAT” file. If you have a name such as John Smiley which 
will duplicate another key, such as John Smith, one of them will be 
given the key SMIJO1. If there is a triplicate, it will be SMIJO2 and so 
on. 

When you load and run the main program, it will check if your data 
files are on the disk in drive one. If you have a data file on your disk, 
the options menu will be the first screen to appear. If the file is not 
present or if you are entering your first data record, you will be promp- 
ted and asked if you want to continue. You will then see the ADD 
screen. Just follow the instructions and type in your key and the cor- 
responding data. When you are finished adding data, type "END". You 
will then see the menu of options including: ADD, CHANGE (can be 
used to change any part of a record), DELETE, INQUIRY/PRINT (to 
view or make a hard copy of a particular record), SCAN RECORDS (to 
sequentially view the records and remind yourself of the keys in case 
you have forgotten or haven't printed a copy), and END to return to 
BASIC. | 

When a key is typed into the computer, the data are retrieved from 
the disk and appear on the screen in the order of a second or two even 
with hundreds of records. This process is expedited by a machine 
language string search which locates the position of the key in the 
string, S$, which contains all the keys and their corresponding 
variables SEC and BYT (that is, sector and byte). A POINT #1,SEC,BYT 
statement then locates the telephone data on the disk. 

When a record is deleted, the program inserts six blanks for the 
deleted key in the string S$. By searching for blanks, the program can 
write a new record over a deleted one thus saving disk space and 
memory. However, until a deleted record is overwritten, it can still be 
accessed through SCAN RECORDS. 

Another feature worth noting in the program is the use of control 
characters in the strings SEL$ and FIELDS defined in lines 190 and 
200 respectively. When SEL$ is printed on the screen, the menu of op- 
tions appears. And FIELDS will print the template for the data entry 
screen. This approach saves many lines of code. Due to an absence of 
an end-of-line character (i.e. RETURN), ! had to use (ESCAPE DOWN) 
followed by (ESCAPE SHIFT-DELETE) in these strings. This combina- 
tion of keys achieves almost the same effect as a RETURN. 

This indexed file is probably the simplest one possible. The next 
level of complexity might include a sort subroutine to put the keys in 
alphabetical order. Then the data could be accessed in alphabetical 
order based on the keys. Since there are several excellent machine 
language sort routines in print, | leave the next step as an exercise for 
the reader. 


List of Variables 


A Index used to identify key as substring in S$ 

AREA$ Area code 

BLK$ String of blank characters 

BYT Value of byte where record is stored on disk, used 
with SEC 

BYT$ String variable of BYT, STR$(BYT) 

DASH$ String of dashes 

DAT$ “D:TELEPHON.DAT”, data file 

EXCH$ Telephone exchange 

FIELD$ String containing information to print data 
entry screen. 

FIRST$ First name 

FLAG = 0: append new record to end of file 
= 1: file TELEPHON.DAT doesn’t exist. 
= 2: replace deleted record with new record. 

FX = 0: field has variable length 


1: field has fixed length 
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K$ ”D:KEYS”, index file 

KEY$ key or index 

KTEMP$ temporary string 

LI) array for length of each field 

LAST$ Last name 

LINE Statement number for continuation after error 

LINEY Statement number for continuation after error 

M1$ Message string 

ME$ Message string 

ML$ Machine language string 

PNUM$ Phone number 

R() Row where field appears on data entry sccreen 

REC Number of records (actually twice the number) 

REC$ String containing a single record 

S$ String containing keys and pointers to sector and 
byte. 

SEC Sector where record is stored on disk. 

ՏԷՇՖ String containing value of ՏԷՇ, STR$(SEC) 

SEL$ Contains information to print option menu on 
screen 

ST Variable used in input and output of S$ 

TEMP$ Temporary string 

X$ used for input of data 

Y Variable used in input and output of S$ 

OUTLINE OF PROGRAM 

10-240 Initialization 

1000-1050 Options Menu 

2000-2130 ADD option 

3000-3120 CHANGE option 

4000-4100 DELETE option 

5000-5050 INQUIRY/PRINT option 

6000-6010 END option 

6500-6610 SCAN RECORDS option 

7000-7050 Subroutine to read indices from disk 

7100-7150 Subroutine to write indices to disk 

7500-7580 General data entry subroutine 

8000-8100 Subroutine to write data to disk, if they are correct 

8200-8260 Subroutine to make hard copy of data on printer 

8300-8320 Subroutine to fill data field with trailing blanks 

8500-8520 Subroutine to print message on screen 

9000-9100 String search subroutine to locate key and print 


data on screen 


10000-10030 
12000-12550 


Error trapping routine 
String-search machine language subroutine 


— Gary Wick 
Inside the Atari 810 


Part 1. The Atari 810 Disk Drive 

The Atari 810 drive was an excellent product for the young Atari 
company back in the early 80's. It quickly became popular until late 
1983. The Atari 810 is basicly a Tandon single-sided, single-density 
raw drive with custom Atari hardware. 

The hardware in the 810 is built around the 6507. Yes, a stripped 
down version of the 6502 microprocessor. The electronics include a 
1771 controlled chip, 128 byte Ram chip; a 2316 2k Rom chip. This 
chip and the Ram chip are replaced when you have HAPPY DRIVES. 
There is also a 2332 Ram chip. This chip does a job similar to the PIA 
chip in the Atari Computer, and adds another 128 bytes of memory to 
the drive. 

The Atari 810 is accessed from the computer serially at 19,200 
baud. This simply means the 810 is about 20 times slower than the Ap- 
ple drives. The major difference between the Atari and Apple drives is 
the Atari and 810 communicate by high level commands and pass 
data back and forth. The Apple 6502 controls the Apple drive, 
therefore through software, the Apple drives can be totally controlled. 


On the Atari, there are a total of 5 commands by which the com- 
puter and drive communicate. These commands are: 


1. Get Sector number. The computer sends this command to the 
drive along with a sector number from $1-$2DO and for Happy Drives 
$800-$13FF. The Drive returns 128 bytes of data. 


2. Put Sector number. The computer sends this command to the 
drive along with a sector number and 128 bytes of data. The sector 
number is between $1-$2D0 and for Happy Drives $800-$13FF. The 
drive writes 128 bytes of data. 


3. Put Sector number with Verify. The computer sends this com- 
mand along with the sector number and 128 bytes of data. The drive 
writes the data to the appropriate sector, reads the sector, and sends 
the data back to the computer. The computer checks both sets of data 
to make sure that they are the same. 


4. Format disk. Upon recieving this command, the drive formats the 
disk in a 40 track, 18 sector per track, 128 byte per sector format. 


5. Drive Status. Upon recieving this command, the drive sends it’s 
status to the computer. 


More Soon.... 
— Shane Rolin 





Nk ee pop fey 

18 REM 12588 DATA 184,184,135.2135,184,133,212 
28 REM XX xx ,184,131,286 
22 REM XX INDEXSETUP x 12518 DATA 104,1335,205,184,153,284,184 
24 REM XX xx ,133,281,168 
26 REM XX by xx 12528 DATA 8,177,281,289,285,208,6,288 
28 REM XX GERRY HICK x ,192,6 
38 REM XX xx 12538 DATA 208,245,36,165,285,24,185,6 
32 REM 9X ACE Newsletter Mar. 85 #*% ,133,205 
34 REM NR 3662 Vine Maple Dr. x 12548 DATA 144,2,230,206,165,212,208,6 
36 REH XX* Eugene, Or. 37485 xx ,165,213 
38 REM Xx $14 year xx 12558 DATA 248,7,198,211,198,212,24,14 
480 REM J3JOOOODOOBOOOBOOOODOOOOOOOHOOSE 4,216, 96 
42 REM 
58 GOSUB 12809 


188 DIM RECS (34) , KEYS (62,55 (68882 , SECS 
G),BYT$ (3) , HS C22 

1888 ? "RINSERT TELEPHON.DAT DISK AND" 
:? 3? "PRESS WHEN READY" 

1818 TRAP i1888:INPLHT X$ 

1828 CLOSE HL: OPEN H1,12,8," D: TELEPHON 
.DAT";TRÀP 2008 

1078 NOTE fH,SEC,BYT:INPUT Hi,RECO 
1848 K-8 

1858 SECS-STRS(SEC) : BYTS$-STRÓO (BYT) 
1868 IF LENCSEC?2) (X THEN X$-5ECS:5ECS( 
2)-H4$:SECS$ (1,1)-"0":G60T0 1858 

1878 IF LENCBYTS) (3 THEN XS$-BYTS:BYTS( 
21z4$:BYT$ (1,1)-"8":GO0TO 1878 

1888 KEYSCi,3)-RECS(CI, 32 :IKEYS (4, 6J- REC 
$127,151 

1838 RECCLEN(59)/6:IF REC-8 THEN 1288 
1188 A-HSRCADRCML2) , REC, ADR (55) , ADRCKE 
Y5)) 

1118 IF 6-8 THEM 1200 

1128 K-K*i1:KEY$ (6,6J-5TRS CK) : GOTO 1188 
i288 S$tCGLENCSS) H1)-KEYS SS CLEN C532 +1)= 
SECS :5S9 CLEN (591 * 1) -BYTS 

1218 GOTO i838 

2088 60518 7188 

2188 END 

7190 REM HRITE INDEX TO DISK 

7118 CLOSE i: OPEN 11,8,8,"D:KEY5" 
7128 Y-LEN(5$) : ICINT(Y/1252 :? BLY 
7125 IF 74125 THEM 7148 

7118 FOR I-8 TO J-1:5T-1*12541:? ԹԼ:55 
(5T,5T*124) : NEXT I 

7148 IF Y/125 OINT(Y/125) THEN շ 81:55 
(12541, 43) 

7158 CLOSE Hl1:REC=LEN(55)/6:RETURN 
12888 RESTORE 12588:DIM MLS (682 

iz818 FOR Mi-1 TO 6@:READ A: MLSCML,ML) 
=CHRS (A): SOUND 8,ML,18,8:NEXT ML: SOUND 
8,8,8,8 

12028 RETURN 


REM KNEKERKÄKNKNERNKKKASKNKRNNNKNM 
REM 36: INDXFILE BY 
REM XX 
REM 8: 
REM EN 
REM 38: ACE Newsletter mar. 85 
REM 38: 3662 Vinemaple Or. 
REM ** Eugene. Or. 37485 

REM 3€ $14 year 

REH ՏԱՐԿ ԿՈ Ւ ԿԱՐ րկ Կ Կ IO Oe Կ Հու 
REM 

58 GOSUB 12888 

38 REM SETUP FOR 588 RECORDS 

188 DIH BLKS(12) , RECS 454), TEHPS CI42 , LÀ 
515 (12) , FIRSTS (12) , AREAS CI) , EXCHS C32, P 
NUMS (4), KEYS (61,55 (6888) , DASHS C12) 

118 DIM FIFLD$(88),5ELS$ (333, M19 (25), HS 
(12),KS$(CG), DATS C141, RCO),L CO), MES C652, 
KTEMPS (125) , SECS (32, BYTS (21 

128 KS-'"D:KEYS":DATS-"D: TELEPHON. DAT": 
FLAG-8 

158 BLKS(I)-" ":BLKS(12)-" ":BLKS(2)-B 
LK$ 

168 DASHS$(CI)-U"-":D85H5$ (12) -"-" : DASHS (2 
)-Pà5H$ 

i78 R(8J1-5:FOR 1-1 TO S5:R(IJ-O*T: NEXT 
I 

i88 L(83-26;L C(13-12:L (22712:L (32-3 :L (4) 
-3:L (5-4 

i98 SELS="1.ab0 
EHM. INQUIRY/PRINT 
6.RETURN TO BASIC" 
288 FIELDS-")he€€KET44PHL Լոտ ԽՈՒԷՀԸ2. 
FIRST NAME HIZ. AREA CODE U4. EXCHANGE HIS 
PHONE NUMBER" 

218 MiS- AM " 

228 REC-1 

238 TRAP 18888;? "K'":LINE-128:LINEY-28 
88:MES-"THERE ARE NO RECORDS ON THIS D 
ISK4 CONTINUE ճմ" 


10 
28 
22 
24 
26 
28 
58 
i2 
i4 
36 
48 


GERRY WICK 


£ t £ £ 2 EEE 


2.CHANGE — S.DELET 
5.5CAN RECORDSUII 


5 


CES SP NA IC SES 


248 60508 7888:TRAP 48080 
1888 REM [ah 
1818 ? "K":POSITION 15,2:2 mäin ;2 
:? FIELDS 
1828 POSITION 12,15:? "OTDARQTE":? :? 5 
EL$:? 
1825 POSITION 2,21:? MiS;BLKS (1,21; "+4 
39 e 
A 
1858 INPUT HS:IF 6850 (151443 OR 456 (153 
)54 THEM 1825 
1858 ON UALCKS) 60518 2888,1888,4888,5 
888,6588,6888 
2888 REM 
2818 TRAP 48888:? "KH"; POSITION 15,1:7 
"բրրի':2 :2 ENTER BATA OR 'END'': 
? :? FIELDS 
2818 R-R(B):L-LCOJ:FR-1:A-1:GÜSUB 7588 
:KEYS-HS:LINE-2088 
2040 IF FLAG O1 THEN A-USRCADR(CMLS) , RE 
C ADRESSI ,ADRCKEYS)) : IF AO 8 THEN MES- 
“DUPLICATE ID'":605UB 8508:G0T0 2888 
2858 IF FLAG O1 THEN KTEMPS-" "IA 
-USR (ADR (MLS) , REC, ADR (5$) , ADR (K TEMPS) 
:IF 8-8 THEN FLAG-8:G0TO 2857 
2855 IF FLAGO 1 AND à 8 THEN A-6X(EC 
-8)*1:5bEC-UAL (5$ (6,0 £8) ) t BYT-VAL (55( 
A+9, At11)) :FLAG-2:G0TO 2068 
2857 A-B5K(GEC-A) 1 
2868 Ք-Ք(11:ԼՀԼ(1):84-8:60518 7588:605 
UB 8188:LA5T$-X2:RECS-LASTS 
2878 R-R(2):L-L(21Y:FHE20:S0SHB 7588: 605 
UB 8188:FIRSTS-NS:RECS C139 IK$ 
2888 R-ROD:L-LUI):FK-1:6054B 7588:4RE 
ASTES: RECS (25)-15 
2898 R-R(D:L-L CA) iFK-1:6051B. 7508:EEC 
H$-KX$:RECS C28) NS 
2188 RRS) LIL CS) :FK-1:6050B 7588:PNU 
HS-XS:RECSCI1)-X$ 
2118 GOSUB 8088:REM ARE THE DATA CORRE 
CT? 
2128 60518 8288:REM HARD COPY? 
2158 6010 2888 
5888 REM 
4018 2 "N":POSITION 14,1:7 "ԱՐԱՐ": 
շո ENTER DATA OR 'END:":? :? FIE 
LDS 
30280 R-R(8):L-L CO) :FK-1:FLAG-2:605UB 7 
S88:KEYS-KS:LINE-I888:GÜ5IB 38080:REM 5 
TRING SEARCH AND PRINT DATA 
5828 POSITION 2,15:? "[EXENTER FIELD NU 
MBER TO CHANGE":? “CENTER (ԳՈՒՆ TO EN 
DJ": INPUT 25 
30355 IF KS="" THEM GOTO 5188 
1848 IF ASC(ES) 49 OR ASCCKS))5Z THEN 


" Imes cont 
HH 
i858 IF UALLMSI-1 THEN R-R(1):L-L(1):F 
K-8:605HB 7580:REC$(i,1273-K5:60T0 1838 , 
i868 IF ՍՈԼ (X2)-2 THEN R-R(Z):L-L C2) :F . 
H-8:6058B 7588:RECS$ (12,2431-45:60T0 3783 
8 
i878 IF UALLX$)-3 THEN R-B(2):L-L (21;F 
N-1:605UB 7588:REC$(25,27)-H5:G0TO 383- 
8 
4888 IF VALC(NSI=4 THEN R-R(4):L-L C :F 
K-1:6051B8 758@:RECS(28,303-KS:GOTO 305 
8 
5898 IF ՍՈԼ (15)1-5 THEN Ք-Ք (53:Լ-Լ (53:8 
H-1:G05UB 7588:RECS$ CI1,34) -N$:G0TO 3585 
8 
3188 GOSUR 8888:REM ARE DATA CORRECT? 
3118 60518 8288:REM HARD COPY? 
3128 GOTO 3888 
4888 REM 
4818 ? "N'":POSITION 14,1:7 "MANAR" :? 
17 m" ENTER DATA OR 'END''":? :2 FIE 
LOS | 
4828 R-Ri83 ;L-LiB8)2 ;FM-i:rino-z:GOSllp 7 
588:KEYS-HS:LINF-488B8:G05UB 3888:R 

STRING MAGIC bu 

Cliarliz rocker 

18 REM EXAMPLE HS - STRING MAGIC FOR 
PAGE FLIPPING. CHARLIE PARKER, STAR- 
FLEET, 7685 5. DATURA, LITTLETON, CO 
58 DIM BMS(i}:REM CREATE STRING FOR 
BISPLAY MEMORY 
78 DIM SMi$ (480) , 5825 (488) ,5MZ5 (488) :R 
FM CREATE STRINGS TO SAVE DISPLAY MEM. 


38 GRAPHICS 23:REM USE GR.7 WITH NO WI 
NDOK ` 


188 SETCOLOR 4,18,5 
118 SETCOLOR 8,8,8 

128 POKE 559,@:REM TURN OFF SCREEN 
158 REM SET UP PARMS FOR STRING MAGIC 
140 REM SET ADDR TO DISPLAY MEMORY 
158 ADDR=PEEK (88) +PEEK (89125256 

168 SIZE=3840:REM GR.23 SCREEN SIZE 
i78 UNIM-8:REM USE 151 VAR, (DMS) 

18@ REM CALL THE STRING MAGIC ROUTINE 
138 GOSUB 818 

288 P-8 

218 REM DRAW FIRST VERSION OF BAT 

228 COLOR 1 

218 PLOT P+5,1 

248 DRAMTO P+19,4:DRANTO P+Z4,1 

258 &05UB 668 

268 IF P(128 THEM P=Pt4a:GOTO 250 

278 REM SAVE DISPLAY MEMORY IN 5SMi$ 
288 5Mi$-DMŠ 

238 REM CLEAR DISPLAY MEMORY 

388 DMS(2)-DMS C1) 

518 REM DRAW SECOND VERSION OF BAT 
128 P-8 

338 PLOT P+5,4 

548 ORANTO P+34,4 

358 GOSUB 568 


IF P(128 THEN P=P+40:G0TO 338 
REM SAVE DISPLAY MEMORY IN 5M25 
$M25-DM$ 

REM CLEAR DISPLAY MEMORY 

DMS (2) -DMS C1) 

REM DRAM THIRD UERSION OF BAT 
P-8 

PLOT P45,7 

DRAMTO P+i9,4:DRANTO Ք454,7 
G05UB 668 

IF P4128 THEN P-Pt48:GOTO 438 
REM SAVE DISPLAY MEMORY IN 58355 
SM3S—DMS 

c=8 | 

POKE 559,34:REM TURN ON SCREEN 
REM FLIP THRU THE DIFF VERSIONS 
DMS (1,488) -5M15$ 

518 DM5(481,268)-5M25 

548 60518 758 

558 DH$(1,488)-5M25 

568 DM$(481,968)-5Mz$ 

578 60518 758 

588 DMS(1,480)-5M3$ 

598 DM$(481,9681-5M25 

688 GOSUB 758 

618 DMS(1,488)-5M25 

628 DMS(481,968)-5M15 


368 
378 
388 
338 
488 
418 
428 
458 
448 
458 
468 
478 
480 
438 
588 
518 
528 


638 GO5UB 758 


631 IF PEEK(7641400255 THEN POKE 764,25 
9:RUN "D: MENU: 

648 GOTO 528 

658 REM COMMON ROUTINE TO DRAM HEAD 
668 PLOT P*17,3:DRAWTO P*21,31 

678 PLOT P+17,S:DRAHTO P*21,5 

688 PLOT Pti7,2:DRANTO P*21,2 

638 PLOT P*18,6:DRAMTO P+Z8,6 

788 PLOT P*17,1:DRANTO P+21,1 

718 COLOR 3;PLOT P*18,4:;PLOT P*28,4 
728 COLOR 1 

738 RETURN 

748 REM DUPLICATE TOP PART OF SCREEN 
758 DM5(961,19228)-DH$ (1, 960) 

768 OMS (1921) =DMS (1,1213) 

778 REM CHANGE COLOR OF EYES 

788 C-C*2:IF C)255 THEN C-12 

738 POKE 718,C:RETURN 

888 REM STRING MAGIC ROUTINE 

818 A-(ADDR- (PEEK C148) *PEEK (14122561) 
: AH-INT CA/256) :4Լ-4- CAHX25 5) :UUT-PEEK( 
134) *PEEK (1152256 : QCUUTtUNLIMKG tZ 

820 IF A(8 THEN A-PEEK(1480) +PEEK (141)X 
296:G6RAPHICS 8:7 "CANNOT GO BELOW ADDR 
E55 "SA: STOP 

838 IF PEEK(0-2) (128 THEN GRAPHICS @:7 
“VARIABLE  1";UNUM;" NOT ñ STRING":5T 

OP 

848 POKE Q,AL:POKE O41, 8H: AH-INGCSIZE/ 

256) :AL-SIZE- CAHEZ56) :POKE O42, AL: POKE 
Qt+3,AH:POKE Q+4,AL:POKE O45, AH: RETURN 
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LA MTA LEER 


18 REM RAMTALKER Version 5.8 11/84 8,Ք 
. Holmes --- reprinted from the 1/85 5 
tatus Newsletter, Norfolk, Vå 

28 GRAPHICS 8:POKE 752,1:? :? :2 :7 "T 
nitializing...please wait" 

248 FOR I-8 TO Z4I:READ Z:POKE 155641,7 
:NEXT I 

48 GOTO 58 

58 DIM Z€255),FNSCi3} : OPEN H1,4,8,"K:" 
68 GRAPHICS 2:5ETCULOR 2,8,8:TRÀP 68 
78 ? 96;" RAMTALKER":? H6 

88 ? H6;" 1 record ":? H6;" 2 playback 
":? d6;" 3 throughput" 

98 7 H6;"' 4 save";? 46:" 5 load" 

108 7 86," 6 waveform graph" 

118 TRAP 118:GET #1,AN5:IF 485254 OR ñ 
N5(49 THEN 118 

128 IF ANS?5i THEN 148 

156 TRAP 68;POKE 752,1:7 "What Sample 

Speed";:INPUT 55:IF 55255 THEN 146 
148 ON VALCCHRS(AN5S)) GOTO 168,208,248 
,278,318,6548 

158 REM TALK 

168 POKE 208,1:PQKE 285,0:POKE 286,64: 
POKE 207,55:POKE 289,128í 

178 A-USRCLSIO):POUKE 562,3:POKE 53775, 
3 

188 GOTO 68 

i98 REM PLAYBACK 

288 POKE 287,55:POKE 2831,8:POKE 284,54 
;POKE 288,8:POÜKE 286,128 

218 A-USRCISI6):POKE 562,3:POÜKE 53775, 
i 

228 GOTO 68 

238 REM THROUGHPUT 

248 POKE 288,2:PÜKE 285,8:POKE 286,64: 
POKE 287,55:POKE 283,128 

258 A-USR(15IB1:G60TO0 248 

268 REM SAVE SOUND FILE 

278 TRAP 270:Բ0 Իէ 752,1:7 "Give file n 
ame"; : INPUT FNS:IF FN$-"" THEN 68 

288 IO-4:0PEM 114,8,8,FN$ 

230 ADDRESS-16I84:NUMBER-16183:PROC-11 

i88 GOSUB 510 

518 GOTO 68 

328 REM LOAD SOUND FILE 

338 TRAP 338:POKE 752,1:7 "Give file n 

ame; :IMPUT FNS:IF FN$-'"" THEN 68 

348 I0-4:0PEN 114,4,8,FN$ 

358 ADDRESS-16384:NLUMBER-16183:PRQOC-7 

568 GOSUB 518 

378 GOTO 68 

388 DATA 184,162,8,141,11,288,173,11,2 

88,41,1,288,249,168,255,152,255, 32,14? 
b 

z 


F s. UT 2 L, F: E F. 


i38 DATA 136,208,248,163,8,141,21,288, 
166,208,224,8,288,3,76.181,6,163,8,141 
488 DATA 0,212, 141,14,212,141,18,212,1 
41,19,212,166,207,32,149,6,173,4,218,1 
62 

418 BATA 13,142,15,218,162,23,142,18,2 
12,142,15,218,142,11,210,174,245,6,224 
78 

478 DATA 208,22,41,248,141,242,6,186,1 
86,186,186,41,15,9,16,141,1,218,238,24 
i 

438 DATA 6,76,45,6,185,186,186,185,41, 
15,9,16,141,1,2718,41,15,13,242,6 

448 BATA 285,243,0,168,8,145,285,17:,3 
1,288,41,1,248,192,238,285,288,1671,2718, 
286 

458 DATA 166,286,228,289,208,155,76,15 
3,6,282,288,253,96,165,288,281,2,288,1 
1,163 

468 DATA 8,135,285,162,54,131,286,76,3 
7,6,169,64,141,14,212,169,34,141,8,212 
478 DATA 36,163,8,141,14,212,141,6,2127 
,1656,287,12,149,65,168,8,177,283,178,18 
b 

488 DATA 186,186,186,41,15,2,16,141,1, 
218,138,41,15,9,16,24,24,24,74,166 

498 DATA 287,32,149,6,141,1,210,258,28 
31,288,286,218,204,166,2804,220,286,288, 
285,76 

588 DATA 153,6,6,8 

518 REM CIO READ/WRITE 

528 10-163410 

538 IOUCB-832*IO:POKE IGCBt2,PROC 

548 ADRHI-INT CADDRESS/2563 

558 ADRLO-ADDRESS-ADRHTX256 

568 POKE IOCBt*4,ADRLO:POKE IOCB*S,ADRH 

1 

570 WUMHI-INTüNIMBER/2561 

588 NUMLO-NHMBER-256XNUMHI 

598 POKE IOCB*8,NUMLO:POKE IOCBt2,NUMH 
I 

688 I-HSRCADRC'hhhaL VE") , 103 

685 REM Line 688 has inverse "X" after 
the 3 lower case "h"; and inverse "d" 
after the upper case "Ս" 

518 CLOSE HIO/16 

528 RETURN 

bi8 REM PLOT WAVEFORM 

648 GRAPHICS 8:SETCOLOR 2,8,80:COLOR 1: 

POKE 752,1:? "RDburing plot, press any 

key to return to Main Menu" 

658 FOR 1-1 TO 480:NEKT I 

668 GRAPHICS 8*16:5ETCOLOR 2,8,8:COLOR 
i:ü-8:B-8:C-8:D-8:H-8 


p78 
688 
698 
788 
718 
728 
748 
758 
768 
778 
788 
738 


FOR 1-1 TO 4995:POKE 764,255 
A-PEEK (I*16184) | 
=PEEK (1420489) 

C-PEEK (1424575) 

D-PEEK(I428678) 

H-H*8.07773:PLOT H, (4/41-15 

PLOT H. (B/4) 458 

PLOT H,(C/4)475 

PLOT H, (D/4)+120 

IF PEEK(764)=255 THEN NEXT I 

If PEEK(764)-255 THEN 788 

6010 68 
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New Disks 


Ready in the next few weeks: 


ACE Business Disk 71 


LABLES 
PRINTING by Stan Ockers, 
FLOW 
Gerry Wick, 
by David Fuller. 
have HOME FINANCIAL DATABASE a 
shareware 


This disk will consist 
and, when ready, 


and INDEXED FILES 
Side 2 


disk by 


Kalagher. 


ACE TeleCommunication Disk 


allow 


intelligent functions, the 
legendary R.BIN file (see ACE 
NOV "84 article by Tom 
Neitzel) that allows you to 
run most modem programs with 
the Atari 835/1030 Modems, and 


the 
ACTION!, 
MicroBits, in 
run-time 
MicroBits 


We now have programs 


fabled KERMIT, 
de-bugged by 
source 
for 
and 


versions 
Modems, 


other modems as well. 


Menus 


programs 
collected by 


A collection of 


one օք 


members. 


All of 
available 
price 


above should 
soon, 


of $10 


the 


each or 


double-sided. 


LIST 
CASH 


and DIF CONVERSION 
will 


Richard 


the Atari 1030 Modem to 
have upload/download and other 


written in 


and in 
the 
maybe 


Menu 
from various sources 
our 


at the usual 
$15 


snakes cont 


5488 IF MAN=65 THEN MAN-85:CHECK-1:G60T 
0 5788 

5490 IF MAN-79 THEM MAN=188:CHECK-1:60 
TO 5798 

5588 IF MAN-188 THEN 8888 

5558 GOTO 2588 

5688 REM SNAKE SOUND 

5618 RESTORE 5688 

5628 FOR 1-1 TO 16:READ TONE 

56380 SOUND @,TONE,10,8:FOR ZZ-1 TO 1:N 
EXT ZZ 

5648 NEXT I 

5658 SOUND @,8,0,@:FOR 77-1 TO 18: NEXT 
ZZ 

5668 SOUND @,243,12,15:FOR 27-1 TO 3:8 
EXT ZZ 

5678 SOUND 8,8,8,8 

5688 DATA 48,45,58,57,64,72,81,31,102, 
114,128,144,162,182,284,218 

5698 GOTO 4488 

5788 REM LADDER SOUND 

5718 FOR I-1 TO 18 

5728 SOUND 8,23,8,15 

5738 FOR 77-1 TO L: NEXT ZZ 

5748 SOUND 8,8,8,8 

5758 FOR 77-1 TO 3:NEMT ZZ 

5768 NEXT I 

5778 GOTO 4488 

7888 REM THE COMPUTER HAS WON 

7818 FOR 1-1 10 15 

7820 SOUND 8,31,16,18:Է0Ք ZZ-1 TO i0:N 
ENT ZZ 

7018 SOUND 8,8,8,8 

7848 NEKT I 

7858 FOR 1-15 TO 8 STEP -1 

7868 SOUND 8,91,18,I:FO0R ZZ-1 TO 18:HF 

vo 

7078 NEXT I 

7999 GOTO 9999 

8600 REM THE MAN HAS WON 

8018 FOR I-1 TO 15 

8828 SOUND @,71,18,1@:FOR ZZ-1 TO 18:N 
ENT ZZ 

8838 SOUND 8,8,8,8 

8848 NEXT I 

8850 FOR I-15 TO B STEP -1 | 
8868 SOUND 8,71,18,I:FOR ZZ-1 TO 18:NE 
XT ZZ 

8878 NEXT I 

8933 6010 3399 

9999 FOR ZZ-i TO 1888:NEXT ZZ:GOTO 2 


18 
12 
14 
16 
18 
28 
22 
24 
26 
23 


REM J3XODODOODOHOODOOOOOOOODOIOOEOEE 
REM XXX LABELS 

REM KHE 5. 0. FEB. 85 
REM 44% ACE NEWSLETTER 
REM EN 3662 Vine Maple Dr. 
REM XXX Eugene, OR 37485 
REM XXX Mar, 85 $14 year 
REM J3009048]19]900]0900)070O0)09)0]90)(9€9HO(OE 
REM 

REM ու MAIN LOOP Xx 

I8 60518 5888:G605lUB 998:G051B 1118:605 
UB 888:605HB G68:REM XXX INITIALIZATIO 
N XXX 

32 GOSUB 588:REM 4 CLEAR RECS HHE 

34 SAUCIPEEK (559) :POKE 559,8:PRINT CHR 
$(125) :REM 88: CLEAR SCREEN 3930 

36 GOSUB 210:605UB 360:POKE 552,54UC:P 
OKE 752,1:REM Ex RECS ON SCREEN Ex 
38 GOSUB 538:REM RK MENU AND CHOICE * 
xx 

48 ON CHOICE Շ0518 188,588,68,78,82,48 
a 

42 GOTO 34 

68 7 CHRS(1252:G05UB 608:605UB 788:6G05 
UB 748:IF C-8 THEM POSITION 5,18:7 ‘TH 
PATTI :GOSUB 588:60508 518:RETURN 

62 5-715-C:605U8 858:RETIURN 

78 POSITION 3,18:7 “ERECT 
աո See GET Hia IF 84248561" 
Y") AND ACAST Cy") THEN RETURN 

72 60518 788:G05UB 748:IF COB THEN GO 
SUB 79:GET HA A: IF AOASCU'Y") AND 847 
ASCC'y") THEN RETURN 

73 IF CO 8 THEN 76 

74 GOSUB 728:5-FSEC:IF FSEC(SS THEN PO 
SITION 3,18:2 "EERSTEN 
ասար ` re Coup S18:RETURN 

76 GOSUB 888:605UB 758:INDEMS(IDH,IDM* 
5)-CODES:S-IDR:TEMPS-RECS 

78 RECS-INDEXS(128XC(IDR-11$1,128XIDR) : 
GOSUB 758:RECS-TEMPS : RETURN 

73 POSITION 3,18:7 աղո մանը 
":GÜSUB SIB:RETURN 
82 POSITION 1,18:? "dëi 
BUM 1758Թ ':: GET ու,ո:18 adda 
SC ("Չո") AND AC ASCE"Yy") THEN RETURN 

84 60518 788:G05UB 748:IF C-8 THEN POS 
ITION 1,15:? ոսա ււ 
SS (60508 518:RETURN 

86 GOSUB 888: INDEXS CIDH, IDH+53-FREKS:5 
-IPR 

88 RECS-INDEXS (128*XCIDR-1)*1,128XIDR) : 
G05UB 758:605UB 588:RETHRN 

99 REM X INPUT ñ STRING TEMPS X 


FELEL 


LABELS 


188 L-ü:TEMPS-"":POKE 764,255:USEFLG-0 
118 IF FLIP-8 THEN FLIP-1:POKE 752,8:6 

010 158 

128 IF FLIP-1 THEN FLIP-8:POKE 752,1 

138 IF PEEK(764)-255 THEN ? CHRS(ID);C 

HR$(I8);:G0TO 118 

148 GET #1,C:IF C-155 OR 6-38 THEN RET 
URN 

158 HUSEFLG-1:IF C-126 THEN 188 

168 IF L-LFLD THEN 118 

164 IF L-8 THEN PRINT BLKSCI,LFLD) :REC 
S (POSFLD, POSFLDLFLD-1) -BLKS : POSITION 
XFLD, YFLD 

178 L-L*1:? CHRS (C); : TEMPS CL,LI=CHRS CC 
):60T0 118 

188 IF L)8 THEM L-L-1:7? CHRS(C);:IF L= 
8 THEN TEMPS="" 

138 IF Լ)6 THEN TEMPS=TEMP$ (1,1) 

288 GOTO 116 

289 REM X PUT FIELD INPUTS ON SCREEN X 
218 RESTORE FLDLINE:READ NBRFLD:FOR J- 
1 TO NBRFLD:READ POSFLD,LFLD,XFLD,VFLD 
,NAFLDS 

228 POSITION KFLD,YFLB+i:FOR K-1 TO LF 
LD:? "7"; NEKT K:LNAM-LENCNAFLDS) 

238 POSITION XFLD*tLFLD-LNAM) /2, YFLO1 
:7 NAFLDS;:NEHT J:RETIRN 

248 DATA 3 

242 DATA 1,12,8,4, GE CERES 

244 DATA 12,15,21,4, AUC ETT 

246 DATA 28,24,8,6, BIER 

248 DATA 52,24,8,6, AGAR 

258 DATA 76,16,18,18, GOR] 

252 DATA 92,2, 30,18, BI? 

254 DATA 94,5,27,12, STR 

256 DATA 99,12,14,14, ERE 

258 DATA 111,17,8,16, AAEN 

299 REM X FILL RECS FROM SCREEN INPUT 

* 

388 RESTORE FLDLINE:READ NBFLD:J-1 

518 RESTORE FLDLINEt2XJ:READ POSFLD,LF 
LD,XFLD, YFLD,NAFLDS 

320 POSITION XFLD,YFLD:GOSUB 188:IF 15 
EFLG-1 THEM 60518 358 

122 IF C-38 AND .D1 THEN J=J-1:G0TO 31 

8 . 
358 1-141:1Բ J'NBRFLD THEN RETURN 

348 GOTO 318 

350 RECS (POSFLD, POSFLD+LEN C TEMPS} )-TEM 

P$ RETURN 

353 REM 39X PUT RECS ON SCREEN 39x 

368 RESTORE FLDLINE:READ NBFLD:FOR 1-1 
TO MBFLD:READ POSFLD,LFLD,HFLD, YFLD,N 

AFLDS 


8 


378 POSITION XFLD,YFLB:? RECS (POSFLD,P 
OSFLD4LFLD-1) :NEKT J:RETURN 

199 REM X PRINT LABEL ACCORDING TO DAT 
ñ STATEMENTS X 

488 7 CHRSC125):RESTORE PRTLINE:J-1:K- 
-1:Hü0LD-8:5KIP-1 

402 READ BLNKS,FLDNO:PRTS CJ, JI -CHRS (BL 
NK5) :PRTS CJ41, JH 1) -CHRS CFLDNOD : IF. FLDN 
0-255 THEN 486 

484 J-Jt2:G0TO 482 


486 ? H2;" ո: 
418 K-K*2:BLNKS-ASC CPRTS (KJ) : FLONO=A5C 
(PRT$(K+11) 


412 IF BLNK5-255 AND HOLD-0 THEN ? #2; 

nn; Hg2;" n;:60T0 410 

414 IF BLNK5-255 AND HOLD-1 THEN SKIP- 

SKIP*1:G0TO 418 

428 IF FLDNO-255 THEN ? H2;"":FOR 1-1 

TO SKIP:? #2;"": NENT J:RETURM 

428 IF BLNKS)B THEN FOR 1-1 TO BLWKS:? 
H2;" ";:NEXT J 

450 RESTORE FLDLINEtZKFLDNO:READ POSFL 

D,LFLD 

432 L-POSFLD*LFLD-1 

434 IF RECSCL,L)-" " AND LOPQOSFLD THEN 
L-L-1:G0TO 434 

456 IF L-POSFLD THEN HOLD31:G0TO 418 
448 HÜLD-8:? H2;RECS(POSFLD,L) ; :GOTO 4 
18 

468 DATA 8,1,1,2,255,8,0,1,255,8,0,4,2 
55,8,8,5,1,6,255,0,14,7,8,255 

590 RECS-" ":RECSCI28) RECS: RECS (22 -RE 
C5:RETURN 

518 SOUND @,100,12,8:FOR K-i TO 158:NE 
KT K:50UND 8,8,8,0:RETURN 

523 REM xx MENU AND CHOICE INPUT ex 
518 POSITION 2,28:? ú ——— 
— A 

512 POSITION 2,21:? "| LOERIT (2)CLEÀ 
R CX)ÓFIND (4)5AUE |" 

534 POSITION 2,22:? "| (SIDELETE (6)PR 
T LABEL լ" 


516 POSITION 2,23;7 uú —— 
a 

548 GET Hi, CHOICE: CHOICE-CHOICE-48:1F 
CHOICEX1 OR CHOICE>6 THEN 548 

558 RETURN 

599 REM EK GET NAME ONLY FROM SCREEN 
33e 

688 RESTORE FLDLINE:READ NBRFLD:FOR J- 
i TO 2:READ POSFLD,LFLD,XFLD, YFLD, NAFL 
p? 

618 POSITION KFLD,VFLD*1:FOR KL TO LF 
Lp:? i”; NEXT K: LNAM-LEN CNAFLDS) 





by 


818 ASECRH-ADR CSECRWS) : KADR=ADRCKSS5} : 
FOR J-1 TO 32 

848 IO-USR(CASECRHM,HADR; J, 12 : NEXT J: 10- 
USRCASECRM, KADR, 728, 1) : RETURN 

849 REM MEX READ SECTOR "ar INTO RECS 
Xxx 

858 RECS (128)-" ":AREC-ADR(RECSI : ASECR 
MADR CSECRMS) : IO-USR CASECRM, AREC, 5,8) ; 
RETURN 

853 REM NR READ SECTORS 1-32 INTO IND 
EM XXX 

868 INDEMS-" ":INDEXS (4826) CINDENS : IND 
EX$ (2) -INDEKS 

878 FOR 5-1 TO 32:6050B 858;J-(5-1)*17 
Sti: INDENS CJ, 127) -RECS: NENT. S: RETURN 


873 REM XXX SAVE INDEKS TO SECTORS 1-5 
2 XXX 

888 FOR 5-1 TO I2:J-(5-1)X128t*1:REC$-I 
NDEXS (JJ, 4127) : GOSUB 758: NEXT S:RETURN 


388 REM «Յո: TOTAL STRING SEARCH www 
382 REM XXX ANALOG H17 P. 84 xxx 
$84 REM SHEE C-USRCADR (BS) , CNT, ADR CAS}, 
ADRIDTSIRL, DIL] 388: 

385 REM HH CNT-RECORD CNT XXX 

986 REM X€X AS-STRING DTS-DESIRED TERM 
KEK 

387 REM SR RL-RECORD LEN PTL-DES TERM 
LEN 388: 

338 DIM BS(C1313):RESTORE Logg FOR J-1 T 
Ü 129:READ A:B59 CJ, JJ -CHRS CA) NENT J:RE 
TURN 

1888 BATA 216,184,184,127,204,1804,1:17, 
281,184,111,2802,184,113,288,184,13131,71 
5,184,1:1,214 

1818 BATA 184,184,131,285,104,104,1:17, 
206,169,8,133,212,169,8,133,213,162,8, 
158,8 

1828 DATA 177,214,224,80,288,2,132,216, 
2893,288,288,43,232,228,2806,248,22,208, 
135,285 

1858 DATA 248,58,72,152,72,138,168,177 
,214,133,287,184,168,104,165,2807,24,1i4 
4,219,72 

1040 DATA 165,204,132,213,165,2803,133, 
212,184,162,8,224,0,248,17,224,8,248,6 
7168 

1858 DATA 8,177,214,162,8,164,216,288, 
196,285,288,186,165,288,24,181,285,11: 
,288,144 

i868 DATA 2,210,283,165,283,208,6,165, 
284,248,7,198,284,198,282,24,144,155,?2 
5,-1 


STAN OCKERS 


628 POSITION KFLD+(LFLO-LNAM) /2, YFLD1 
"3 WAFLDS;:NEXT J 

638 RESTORE FLDLINE:GOSIUB 588:READ NEF 
LB: J=1 

540 RESTORE FLPLINE*2XJ:READ POSFLD,LF 
LO, FLO, YFLD,NAFLDS 

658 POSITION XFLB,YFLD:GOSUB 188:IF US 
EFLG-1 THEN 60518 358 

668 IF C-38 AND DI THEN J-Jj-1:S0T0 64 
a 

678 J-J*1:IF 122 THEN RETURN 

688 GOTO 648 

699 REM KEE MAKE ñ CODE STRING FROM NÁ 
MES 388: 

788 CODES- RESTORE FLOLINE+4: READ J: 
RESTORE FLDLINEtZ:READ K:CODES-RECS (u, 
J#2):L=4 

782 IF CODESCI,31-" " THEN CODES-CODES 
(1,2):L-3 

784 IF COÓDES(C2,2)-" "ú THEN CODES-CODES 
(1,1):1-2 

786 COUDESC(L,L*1)-RECS(K,K*1):IF CODES ( 
Lt1,Lt1) OQ" " THEN RETURN 


787 IF CODESCLT1,L*1)-" " THEN CODES-C 
OPES (1,Լ1 

708 IF CODES(L,L3-" " THEN CODES-CODES 
(1,Լ-1) 

718 RETURN 


719 REM een FIND 15T FREE POSITION IN MARCI լ 


INDEKS WHH 

728 C-USR(CADR(CBS) , 681, ADRIINDEK$I, ADRI 
FREXS) ,6,5) :F5EC-714-C: IDE-4887-CK6 : ID | 
R-INT(CIDX/128) t1: RETURN 


1188 REM X LIVE W/O DOS ANALOG Hi7 P 5 
4 * 

1182 REM X IO-USR(CADR(SECRNS , ADR CEUFS 
),SECT,FLAG ¥ 

1184 REM X FLAG-8 TO READ, 1 TÜ WRITE 
* 

1118 DIM SECRHS(44) :RESTORE 1128:808 J 
zi TO 44:READ A:SECRHS CJ, J ZCHRS CA) : NE 
KT J:RETURN 

1128 DATA 184,184,141,5,31,184,141,4,7, 
184,141,11,3,184,141,18,31,184, 184,281 
1158 DATA 1,206,7,169,87,141,2,3,288,5 
,169,82,141,2,3,169,1,141,1,3,32,83,22 
8,96 

5888 DIM TEMPS (128) ,NAFLDS (283 , REC? (12 
8),BLK5 (582,X555$ (128) :LFLD-18:7. CHRS C1 
251 

5818 N555-"X":4555$ (1281-4559 2559 (2) -K 
S55:FLDLINE-248:PRTLINE-468:DIM PRTS$(S 
8),INDEXS (4836) 

5828 DIM FREKSCG) :FRENSC"KKKHRH" BIN C 
ODES (6) : OPEN 11,4,8,"K;" :0PEN 82,8,8," 
P 

5858 BLKS-" ":BLKS (50) -BLKS:BLKS (2) -BL 
KS:6-PEEKCI6) :IF 85128 THEM A-A-128:P0 
KE 16,0:POKE 53774,A:RETHRM 





MEETING 





739 REM XXX* FIND CODE STRING IN INDEHS ` 


RET. SECTOR '5' 288 


748 C-USR(CADRCBS2 , 682, ADR CINDEXS) ADRE WED. 


CODES1,6,LEN CCODES21 :5-715-C: IDK=4843- 
CX6 : IDR-INT CIDX/128) * 1: RETURN 


749 REM HHH SAVE RECS TO SECTOR 5 398€ | 


758 TO=USRCADRCSECRHS? , ADR RECS) , 5, 1) ; Ae 


RETURN 
739 REM 3366 WARNING XXX 





808 TEMPS-RECS:54U5-5:5-728:605UB 850: DINE 


IF RECS$C1,18)-HK555 (1,18) THEN RECS-TEM 

p$:5-50US: RETURN 

882 RECS-TEMPS:5-54AUS:POSITION 4,10:7 

“ES BE- SURE DATA DISK IS TNA 
OSITION 168,12 

818 7 "THEN PRESS ANY KEY":POKE 764,25 

5 

828 IF PEEK(764)-255 THEN 828 

822 RETURN 

829 REM HE REM FILL DISK SECTORS 1-32 
Հ 728 WITH 15 XXX 


9 





H dr 5.5 


8 GRAPHICS 7*16:COLOR 5 

i DIM MAN(CB,8):DIM ATARI(S,B):PIM MANS 
POT(8,82:DIM ATSPOT(O,8) 

2 FOR I-8 TO 7:FOR J-@ 10 7 


3 MANCI,JI-8:ATARIGI,.3-0:MANSPOT(CI,.) ` 


=O: ATSPOTCI, 2-8 

4 NEXT J:WEKT I 

5 CHECK-8 

58 GRAPHICS 2+16 

78 POSITION @,3:7 86:" 

88 POSITION 9,5:7 HG; AND" 

38 POSITION 7,7:? HO; IADDERS" 

i88 POSITION 3,1:PRINT 86;"0_" 

118 FOR 1-2 TO 18 STEP 2 

128 POSITION 2,1:7 86:"Ը NEXT I 

138 FOR 1-5 10 9 STEP 2 

148 POSITION Z,I:? 86:'3" 8881 I 

158 FOR 1-1 TO 18 

i68 POSITION 17,1:7 16;"H":NEXT I 

170 FOR 27-1 TO 988:NEXT ZZ 

188 POSITION Z,11:? H6;"EENSGSTWEDDLEDD 

“ 

268 

278 

288 

258 

388 

Տո 

118 7 H5;"THE IDEA OF THE GAME 15 TO 6 

ET YOUR MAN TO THE LAST SQUARE QUICK 

Ly" 

i28 7 H6;"YOU CAM CLIMB HP THE RED LAD 

DERS BUT LOOK OUT FOR THE GREEN 

SNAKES' HEADS ...YOU'LL FALL!" 

336 7 H6;"PRESS SELECT" 

148 POKE 53279,0 

358 IF PEEK(53279)-5 THEN 3178 

i68 GOTO 158 

178 GRAPHICS 2416 

i88 ? #6;" more instructions" 

398 ? Hb;"YOU MUST TAKE TURNS WITH TH 

E COMPUTER." 

488 7 #6 "SELECT THE NUMBER THROHN 

BY YOUR DICE WHEN THE BUZZER SOUND 

S AND THE RIGHT HAND SIDE OF" 

418 2 H6;" THE BOARD IS BLANK.THE COMP 

UTER HAS THE FIRST 60. PRESS 

SELECT" 

428 POKE 53279,8 

430 IF PEEK(53279)-5 THEN 458 

448 GOTO 438 

450 GRAPHICS 2+16 

468 POSITION 8,5:7 #6;" 
START" 


SNAKES" 


FOR 77-1 TO 1888:NEHMT ZZ 

REM INSTRUCTIONS FOR USE 

REM DO NOT FEED AFTER MIDNIGHT !!! 
GRAPHICS 2+16 


PRESS 


478 
488 


558 
548 


$88 
618 


658 


638 


POSITION 1,8:PRINT #6;"'instruction 


D 
s 


POKE 53273,8 

IF PEEK(53273)-6 THEN 588 

GOTO 488 

GRAPHICS 7+16;F0R H-35 TO 125 STEP 


438 
588 
3 
585 
510 
528 


COLOR š 

PLOT X,8:DRANTO KR,398 

WEXT X 

FOR Y-8 TO 98 STEP 9 

PLOT 3S,Y:DRAHTO 125,Y 

WENT Y 

REM SPACE FOR DRAWING NUMBERS 
COLOR š 

REM DRAW ALL 1'5 

RESTORE 678 

FOR 1-1 TO 13 

READ X,Y:PLOT X,Y:DRAHTO X,Y*4 
WEXT I 

668 REM BATA FOR 1'5 

678 DATA 37,3,123,3,42,12,123,21,42, 38 
,1232,19,42,48,121,57,42,56,118,84,48,8 
4,121,75,118,75 

688 FOR 1-1 TO 8 

PLOT IX94317,75:DRAHTO IX3437,73 
NEKT I 

REM DRAW ALL THE 2'5 

RESTORE 768 

FOR 1-1 TO 11 

READ X,Y 

PLOT K,Y:DRAWTO K*2,Y:DRAHMTO N*2,Y 


358 


628 
625 
618 
648 


708 
718 
715 
728 
718 
748 


+2:DRAHTO X,Y*2:DRAHTO X,Y4:DRAHTO Kt 


2,Y*4 

758 NEXT I 

768 DATA 113,3,113,21,113,39,113,57,11 
2,75,58,12,58,38,58,48,58,66,48,84,57, 


75 


778 FÜR I-8 TO 8 

788 K-IX9417:Y-66 

798 PLOT X,Y:DRAMTO H#2,Y:DRAWTO K+2,Y 
+2:DRAHTO X,Y*2:DRAWTO H,Yt4:DRAMTO K+ 
2,144 

888 NEXT I 

818 REM DRAW ALL THE 3'5 

812 RESTORE 855 

815 FOR I-1 TO 11 

828 READ 1,4 

825 PLOT K,Y:DRAMTO X*2,Y:DRAMTO X42,Y 
#4:DRAWTO X,Yt4:PLOT X62, Y42:DRAHTO X, 
Y+? 

838 NEXT I 

835 DATA 184,5,104,21,184,33,184,57,18 
3,75,59,12,59, 30,59, 48,59,66,57,84,118 
,56 

848 FOR I-8 TO 8 


10 


loben 


845 K-(118-IX9) :Y-57 

858 PLOT X,Y:DRAHTO KtZ,Y:DRAWTO X42,Y 
+4:DRAHTO E, Y*4:PLOT X42, Y*2:DRAHTO X, 
Y*2 

855 NEKT I 

868 REM DRAM ALL THE 4'5 

862 RESTORE 885 

865 FÜR I-1 TO 11 

878 READ X,Y 

875 PLOT X,Y:DRAMTO K,YTZ:DRAHTO X42,Y 
PLOT X42, Y*2:DRAWTO X52,Y44 

888 NEXT I 

885 DATA 95,3,95,21,95,39,95,57, 94,75; 
68,12,68,30,68,48,68,66,66,84,37,57 
898 FOR I-0 TO 8 

895 X-IX9412:Y-48 

388 PLOT X,Y:DRANTO K,Yt3:DRAWTO X+2,Y 


43; PLOT K+2,Y+2:DRAHTO X42,Y*4 


985 NENT I 

318 REM DRAW ALL THE 5'5 
912 RESTORE 935 

915 FOR 1-1 10 11 

328 READ K,Y 


328 PLOT H*2,Y:DRAHTO M,Y:PRANTO M,Y12 


:DRAHTO X*2,Y*2:DRAWTO Kt2,Yt4 : DRAHTO 
K,Yt4 

938 NEXT I 

315 DATA 86,1,86,21,85,39,86,57,85,75, 
77,12,77,38,77,48,77,66,75,84,118,48 
348 FOR I-8 TO 8 

345 N-(018-I*9) : Y-39 

958 PLOT X*2,Y:DPRAHTO K,Y:DRAHTO K,Y+2 
:PRAHTO 842, Y*2:DRANTO 2842, Y*4: DRAWTO 
X,Y*4 

955 NEXT I 

368 REM BRAW ALL THE 6'5 

362 RESTORE 385 

965 FOR 1-1 TO 11 

978 READ X,Y 

975 PLOT X*2,Y:DRAMTO H,Y:DRAWTO H,Y+4 
:DRAHTO Ht2,Y*4: DRAWTO. K42,Yt2: DRANTO 
K,Y*2 

988 WEXT I 

985 DATA 77,3,77,21,77,39,77,57, 76,75, 
86,12,86,380,86,48,86,65,84,84, 17,33 
338 FOR 1-8 TO 8 

995 X-I*X39137:Y-38 

1080 PLOT X*2,Y:DRAMWTO X,Y:DRAHTO X,Y* 

4:DRANTO XN*2,Y*4:DRAMTO. Kt2,Y42:DRAHTO 
1,182 

1885 NEXT I 

1818 REM DRAH ALL THE 7'5 

1812 RESTORE 1835 

1815 FOR 1-1 TO ii 





1828 READ K,Y 

1825 PLOT K,Y:DRAWTO X*2,Y:DRAWTO X42, 
Y42:PLOT X*1,Y42:DRAHTO 841, 4 

1030 NEXT I 

1835 DATA 68,5,68,21,68,39,68,57,67,75 
,95,12,95,38,95,48,35,65,92,84,118, 38 
1848 FOR I-8 TO 8 

1845 M-(118-139) : Y-21 

1858 PLOT X,Y:DRAHTO K42,Y:DRAMTO M42, 
Y42:PLOT K+1,Y+2:DRAHTO K+1,Y+4 

1855 NEXT I 

1868 REM DRAW ALL THE 8'5 

1062 RESTORE 1885 

1865 FOR I-1 TO 11 

1878 READ H,Y 

1875 PLOT K,Y:DRAHTO X*2,Y:DRAMTO 242, 
Y+4:DRAHTO X,Y*4:DRAMTO K,Y:PLOT K,Y42 
:DRAMTO 342, 742 

1888 NEXT I 

1885 DATA 59,3,59,21,59,39,59,57,58,75 
,104,12, 184,308,104, 48,104,66,182, 84,37 
,21 

1898 FOR 1-6 TO 8 

1895 22149457: 7-12 

1188 PLOT K,Y:DRAWTO K#2,Y:DRAWTO X42, 
Y#4:DRAWTO H,Y*4:DRAHTO H,Y:PLOT 8,742 
:DRANTO 442, 442 

1105 NEKT I 

1118 REM DRAW ALL THE 9'5 

1112 RESTORE 1155 

1115 FOR I-1 TO 11 

1128 READ X,Y 

1125 PLOT X42,Y42:DRAWTO X,Y*2:DRAHTO 
K,Y:DRAMTO H#2,Y:DRAWTO 842, Y*4:DRAMHTO 
K, Yt 

1138 NEXT I 

1115 DATA 58,3,58,21,58,39,58,57,49,75 
,113,12,113,38,113,48,112,66,111,84, 11 
8,12 

1148 FOR I-8 TO 8 

1145 K-(118-IX9) :Y-3 

1158 PLOT K*2,Y42:DRAMTO H,Y42:DRAHTO 
K,Y:DRAMTO K#2,Y:DRAWTO R+2,Y+4:DRAHTO 
X, 144 

1155 NEXT I 

1168 REM DRAW ALL THE 8'5 

1162 RESTORE 1185 

1165 FOR 1-1 TO 11 

1178 READ X,Y 

1175 PLOT X,Y:DRAMTO H,Yt4:DRAHTO H2, 

Y*4:DRAMTO X42,Y:DRAHTO X,Y 

1188 NEXT I 

1185 DATA 39,3,41,3,41,21,41,39,41,57, 

48,75,122,12,122,38,122,48,122,56,128, 

84 

1488 REM DRAW THE SNAKES 

1418 COLOR 2 


snakes cont 


1428 FOR J=i TO 12 
1430 READ K1,Y1,X2,Y2 

1448 PLOT Ki,Yi 

1445 PLOT H2-1,¥2:DRAWTO K2+1,Y2 

1446 PLOT K2-1,Y2*1:DRAMTO 8241, 74241 
1458 FOR 1-1 TO Yi1-Y2 

1468 Y-Y1-I 

1478 X-INT(CH2-K11X(V1-Y)/ CY1- V2) KL) 
1488 IF RND(0)(0.5 THEN K-K-1 

1430 PLOT X,Y 

1588 NEXT I 

1518 NEXT J 

1528 DATA 42,81,188,14 

1518 DATA 68,83,82,78 

1548 DATA 69,853, 73,52 

1558 DATA 189,83,91,52 

1568 DATA 118,81,87,34 

1578 DATA 185,74,118,25 

1588 DATA 55,65,42,34 

1598 DATA 64,56,51,7 

1688 DATA 118,47,189,7 

1518 DATA 105,38,69,7 

1628 DATA 59,29,82,7 

1638 DATA 42,74,64,16 

1788 REM TO DRAM THE LADDERS 

1718 COLOR 1 

1728 PLOT 55,74:DRAMTO 51,61:DRANTO 46 
,61 

1758 PLOT 87,83:DRAHTO 91,61:DRAMTO 96 
,61 

1748 PLOT 118,65:DRAWTO 105,4Z;:DRAHTO 
188,41 

1758 PLOT 42,56:DRAWTO 55,16:DRAHTO 66 
,16 

1768 PLOT 68,47:DRAWTO 64,25:DRAKTO 69 
25 

1778 PLOT 118,38:DRAMTO 185,16:DRAMTO 
188,16 

1788 PLOT 87,18:DRAMTO 188,7:DRAMTO 18 
5,7 

1738 PLOT 73,29:DRANTO 78,16:DRAMTO 73 
18 

1888 PLOT 46,20:DRAHTO 42,7:DRANTO 37, 
7 

2888 FOR 1-0 TO 7:FOR 7-8 TO 7 

2018 READ A:MANCI,J)-A 

2828 NEKT J:NEXT I 

2818 DATA 8,8,8,1,1,8,8,8 

2848 DATA 0,0,0,1,1,0,0,0 

2858 DATA 8,8,8,1,1,8,8,8 

2868 DATA 1,1,1,1,1,1,1,1 

2878 PATA 1,1,1,1,1,1,1,1 

2888 DATA 8,8,0,1,1,0,8,8 

2898 DATA 8,0,8,1,1,8,8,0 

2188 DATA 8,8,8,1,1,8,8,8 

22880 FOR 1-8 TO 7:FOR J-8 TO 7 

2218 READ A:ATARICI, JI=A 
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2228 NEXT J:NEXT I 

2238 DATA 1,1,1,8,8,1,1,1 

2248 DATA 1,1,1,8,8,1,1,1 

2258 DATA 1,1,1,8,8,1,1,1 

2268 DATA 8,8,8,8,8,8,8,8 

2278 DATA 8,8,8,8,8,8,8,8 

2288 DATA 1,1,1,8,8,1,1,1 

2238 DATA 1,1,1,8,8,1,1,1 

2588 BATA 1,1,1,9,8,1,1,1 

2488 MANK-27: MANY-82 : ATARIK=-27: ATARTY= 
82 

2418 MAN-8:ATARI-8@ 

2588 PLHUS-INT(COXRND (8) +13 

2518 COLOR £ 

2528 FOR 1-1 TO PLUS 

2530 PLOT 25,1X18 

2540 NEXT I 

2545 IF ATARI*PLUSD188 THEN 4888 

2558 FOR 1-8 10 7 

2560 FOR J-8 TO 7 

2578 COLOR ATSPOTCT, J) 

2588 PLOT ATARIH*I,ATARIY:*.! 

2590 NEXT J 

2688 NEXT I 

2681 IF DRAWMMAN O1 THEN 2683 

2682 COLOR i 

2603 FOR 1-8 TO 7 

2684 FOR J-8 TO 7 

2605 IF MAN(I,.J3-1 THEN PLOT ATARIEK'T, 
ATARIY*J 

2686 NEXT J 

2687 NEXT I 

2688 DRAMWMAN-B 

2683 IF CHECK-1 THEN 2628 

2618 ATARI-ATARItPLUS 

2628 IF ATARIOMAN THEN 2678 

2625 DRAMWAT-1 

2638 FOR I-8 TO 7:FOR J-@ 10 7 

2648 ATSPOTCI,.) -CMANSPOT(I, 1) 

2650 NEKT J:NEXT I:ATARIM-MANM:ATARIY- 
MANY 

2668 GOTO i888 

2678 ATARIY-82-INT(CCATARI-1)/1823) 
2688 IF (INTCCATARI-12/182/2)-INTCINT(C 
(ATARI-1)/18)/2) THEN ATARIN-(LCCCATAR 
I-13/18)-INTCCATARI-1)/182)X18)41) 912 
ս 

2638 IF (INTCCATARI-1)/18)2/2) <> INTCINT 
CCATARI-1)/182/2) THEN ATARIEX-1285-CCCC 
KATARI-1)/18) -INT(CATARI- 12/182) X18) +1 
13:39 

2788 FOR 1-8 10 7 

2718 FOR 1-8 TO 7 

2728 LOCATE ATARIM*I,ATARIYtJ,0 

2758 ATSPUTII,J2-ü 

2748 WENT J 

2758 NEXT I 


snakes cont 


3888 COLOR i 
24018 FOR 1-9 TO 7 


3658 SOUND @,TONE,18,8:FOR 27-1 TO 1:N.4628 IF CINTCCMAN-1)/10)/2) O INT(INT(( 


EKT ZZ M0N-1)/10)/2) THEN MANH-126- CCCCCHAN-1 
i828 FOR J-8 TO 7 3648 NEXT I (2418) -INT COMAN-1) £103 418) +1249 
3818 IF ATARIC(I,J)-1 THEN PLOT ATARIKX* z656 SOUND g,g,g,g:FOR ZZ=1 TO 18:NEXT 4700 FOR 1-8 TO 7 
I, ATARIYHJ ` zz 4718 FOR 1-6 TO 7 
5848 NEXT J 5668 SOUND @,243,12,15:FOR ZZ-1 TO 5:N 4728 LOCATE MANXtI,MANYtJ,Q 
4858 NEKT I EXT ZZ 4756 MANSPOTLI, 1-0 
1188 COLOR 8:PLOT 25,0:DRAMTO 25,95 — 6708 SOUND 0,0,8,0 4748 NEKT J 
3118 IF CHECK-1 THEN CHECK=@:G0TO 3488 zeg pata 40,45,50,57,64,72,81,91,102, 4758 MENT I 
3288 IF ATARI=99 THEN ATARI=37:CHECK=1 լլգ 128 144,162,182,204,218 4798 COLOR 1 
D E 3690 6010 2558 4888 FOR 1-6 TO 7 
1218 IF ATARI=97 THEN ATARI=52:CHECK=1 z708 REM LADDER SOUND 4818 FOR Jz@ Te 7 
our 3929 1718 FOR 1-1 TO 18 4820 IF MAN(I,J)-1 THEN PLOT MANX+I,MA 
1228 IF ATARI=95 THEN ATARI=64:CHECK=1 3799 SOUND 8,29,8,15 NYJ 
:COTO 3600 3738 FOR ZZ-1 TO i:WEXT ZZ 4818 NEXT J 
1238 IF ATARI-92 THEN ATARI=5@:CHECK=1 5249 SOUND 8,8,0,0 4848 NEXT I 
GOTO 3688 3758 FOR ZZ-1 Tü X:NEXT ZZ 5188 COLOR @:PLOT 25,8:0RAMTO 25,95 
3240 IF ATARI-84 THEN ATARI-28:CHECK-1 156g NEXT I 5118 IF CHECK-1 THEM CHECK-8:G0T0 5488 
:G0TO 3608 3778 GOTO 2558 5288 IF MAN=99 THEN MAN=37:CHECK=1:60T 
3258 IF ATARI=71 THEN ATARI=15:CHECK=1 4008 COLOR @:PLOT 135, 8:DRAWTO 135,98 0 5688 
GOTO 3600 4818 COLOR £ 5218 IF MAN=97 THEN MAN=5Z:CHECK=1:60T 
1268 IF ATARI-68 THEN ATARI=1:CHECK=1: ¿020 POKE 53279,8 0 5609 
GOTO 1608 4830 PLUS-INT(GXRND(8) +1) 5228 IF MAN=95 THEN MAN-GA:CHECK-1:GUT 
3278 IF ATARI=66 THEN ATARI-10:CHECK-1 4948 rr PEEK(5Z279)=5 THEN 4868 0 5608 
lei aud 4858 6010 4820 5230 IF MAN=92 THEN MAN-SB:CHECK-1:G0T 
5288 IF ATARI-61 THEM ATARI-21:CHECK-1 968 FOR 1-1 TO PLU5:PLOT 135,IX18:NEM 0 5688 
:60T0 3688 Fez 5248 IF MAN-84 THEN MAN-28; CHECK-1:60T 
1238 IF ATARI-47 THEN ATARI-S:CHECK-1: ցոց TF MANiPLIS)188 THEN 2580 0 5608 
GOTO 3688 4188 PLUS=PLUS 5258 IF MAN=71 THEN MAN-II:CHECK-1:G0T 
3388 IF ATARI-45 THEN ATARI=4:CHECK=1: 448g FOR 1-8 TO 7 0 5688 
GOTO 36080 4416 FÜR J-8 TO 7 5268 IF MAN=68 THEN MAN=1:CHECK=1:G0TO 
1318 IF ATARI=26 THEN ATARI-I:CHECK-1: ¿420 COLOR MANSPOT (I,J) 5688 
GOTO 4608 4418 PLOT ԽՈԼ, MANY+J 5279 IF ԽՈԽ-66 THEN MàN-18:CHECK-1:G0T 
3488 IF CHECK-1 THEN CHECK-8 4440 WERT J 0 5688 
1418 IF ATARI-5 THEN. ATAREIA: CHECKS IS qasa MERTCT 5288 IF MAN-61 THEN MAN=23:CHECK=1:G0T 
ե010 5788 4468 IF DRAHATO 1 THEN 4535 0 5608 
3420 IF ATÓRI-IS THEN ATARIZSICHEGK=A 4479-Շ0Լ0Ի 1 5238 IF MàN-47 THEN MAN=9:CHECK=1:G0TO 
:G0TO 3788 4488 FOR I-8 TO 7 5688 
3438 IF ATARI-I8 THEN ATARI=53:CHECK=1 ¿490 rop J-8 TO 7 5188 IF MAN-45 THEN MAN=4:CHECK=1:G0TO 
:G0TO 3788 4588 IF ATARICI,J)-1 THEN PLOT MANKTI, — 5688 
3446 IF ATARI-40 THEN ATARICSS:CHECK-À war. $118 IF MAN=26 THEM MAM-I:CHECK-1:G0TO 
:G0TO 5788 4518 NEXT J 5688 
$458 IF ATARI=43 THEN ATARI-77:CHECK-1 ¿520 NEKT I 5400 IF CHECK-1 THEN CHECK-8 
;G0TO 1788 4518 DRAMAT-O 5418 IF MAN-6 THEN MAN-I4:CHECK-1:GO0TO 
3460 IF ATARI-51 THEN ATARI-88:CHECK-1 ¿sz5 IF CHECK-1 THEN 4558 5788 
6010 2788 4548 HAN-MANtPLUS 5428 IF MAN-18 THEN MAN-IS:CHECK-1:60T 
1478 IF ATARI-55 THEN ATARI-93:CHECK-1 259 IF MANCO ATARI THEN 4688 0 5788 
:G0TO 5788 4555 DRAMMAN-1 5450 IF MAN-38 THEN MAN-SI:CHECK-1:GOT 
5488 IF ATARI=65 THEM ATARI-85:CHECK-1 456g FOR I-8 TO 7:FOR 1-8 TO 7 0 5708 
:G0T0 5788 4578 MANSPOT(I, J) -ATSPOT(I, D 5448 IF MAN=4@ THEM MAN=83:CHECK=1:60T 
5438 IF ATARI-73 THEN ATARI-188:CHECK- 4580 NEKT J:NEKT I:MANK-ATARIK:MANY-AT 0 5788 
1:Ե010 3788 ARIY | 5458 IF MAN=43 THEN MAN-77:CHECK-1:60T 
4588 IF ATARI-i188 THEN 7888 4538 GOTO 4798 0 5788 
3558 GOTO 4888 4588 MANY-C82-INT(CCHAN- 12/1823) 5468 IF MàN-51 THEN MAN-88:CHECK-1:GUÜT 
i688 REM SNAKE SOUND 4618 IF CINTCCHAN-1)/18)/2)-INTCINT((M 0 5788 
3610 RESTORE 3688 àAN-1)/18)/2) THEN MANX-(CCCCHAN-1)/18) 5478 IF MAN-55 THEN MAN-93:CHECK-1:60T 
i628 FOR 1-1 TO 16:READ TOME -INT € CHAN-1) 10) ) 410) 1119177 0 5708 


12 


LABELS 


Recently, | find myself mailing 8 fairly large number of checks each 
month. While addressing envelopes, | suddenly thought "wouldn't it 
be nice if | had a program where I could type in a few letters and have 
the program dig out the address and print a mailing label". 

The result is a program | call 'Labels'. Labels uses a data disk 
holding up to 681 addresses, each on one sector of the data disk (128 
bytes). 32 sectors of the disk hold an index which is loaded in memory 
at the beginning of a session and allows rapid location of any ad- 
dress. 

The key to finding an address is based on the first three letters of 
the last name plus the first two of the first name. An index is held in a 
string called INDEX$, each address being allotted six bytes, (five for 
the key plus one for expansion) Two programs from ANALOG 
magazine were vital to creating 'Labels', (they are referenced in the 
listing). One allows writing to disk without DOS and the other permits 
rapid string searches. 

When the program is run, you will be presented with a screen of 
labeled fields and a menu of choices. Choice #1 (EDIT) will produce a 
cursor in the first-name field. When you enter the first name and press 
return the cursor will jump to the second field (last-name). If you want 
to skip over a field, just press return. You can use CTRL backarrow to 
back up for re-editing. When the last field is entered, you will be 
returned to the menu. 

Other menu choices are: (2) CLEAR to clear all fields to blanks; (3) 
FIND to search for an address; (4) SAVE to save what is currently 
displayed on the screen; (5) DELETE to delete the address currently 
displayed; and (6) PRT LABEL to print a label of what is displayed. 

When you save an address a check is first made to determine if one 
with the same key exists. You will then be asked if you want to 
replace the current address (you can't have two with the same key). If 
you have updated an old address, the answer is yes, but if you haven't 
entered this name before, obviously some other name reduces to the 
same key. This might happen for example with John Jones Jr. and 
John Jones Sr. You will just have to find a way to change the name, 
putting a blank at the beginning of the first or last name for example. 
You'll have to remember to enter the blanks when searching for the 
name. 

When you use option 3 (FIND) you will need to enter parts of 
last/first names. Just remember how the key is made. The last name is 
the primary identification. If three letters are available, they will all be 
used but as few as one could be used. In all cases the last occurance 
of a match in INDEX$ will be found. If a first name is supplied, as 
many as two of the first letters will be used. Leading blanks are 
significant but trailing ones are ignored. Upper and lowercase are also 
significant. INDEX$ can be viewed by hitting system reset and prin- 
ting it. Single names like ‘Wiebolts’ should appear in the last name 
field. 

This program uses a specially formatted data disk. First format the 
disk normally. Then run the ‘Labels’ program and press system reset. 
Make sure the data disk is in the drive and enter GOSUB 830. The disk 
will have X's written into sectors 1-32 (the index) and sector 720. Use 
only this disk with the program 'Labels'. The program writes directly 
to disk sectors and can easily mess up a normal disk. 

If you don't like the field arrangement, it can easily be changed in 
lines 240 and following. The fields are specified in order in even 
numbered lines 242 and following (240 contains the number of fields). 
Each data statement contains the position in the record, the length of 
the field, the X screen position, Y screen position and the name of the 
field. You can have as many fields as you want but the total of all 
lengths can't exceed 128. Be sure you finalize the new arrangement 
before you start entering addresses. If you change later, they won't be 
compatible. 

Printing of labels is also controlled by a data statement (line 460). 
The arrangement is a sequence of two number values: number of 
blanks followed by a field number. If a 255 appears in the # blanks 
position it indicates a carriage return is to take place. A 255 in the 
field number place indicates the printing is finished. 

Only simple label printing is provided. The program assumes single 
width labels of size 3-1/2 x 15/16 inches. These will hold 5 lines and 
are separated by one line spacing. After the five, the program will br- 
ing the printer to the next label. You will have to manually position at 
the top of the first label where the 1st line goes. The lines are left 
justified. The program keeps track if fewer than five lines are printed 
and adjusts accordingly. 

Some enhancements to the program might be considered. l left the 
6th byte for each sector entry in the index with the idea it could be us- 
ed to tag labels to be printed in separate lists of addresses. Using a 
separate bit for each list, you could have 8 lists. When the name of a 
list is entered the program will go through and print a label for each 
address for which the appropriate bit is set. Another mod might be to 
have the program print a directory of addresses, perhaps with the list 
finding provision and maybe in alphabetical order. A reasonably fast 
sorting routine working on the index would be required. 

— Stan Ockers 


STRING MAGIC 


(reprint: STARFLEET, December, 1984) 
Page Flipping Magic 

Page flipping is the rapid changing of what is displayed on the 
screen between two or more images. This gives the illusion of move- 
ment, much like motion pictures. While there are several methods for 
accomplishing this, the example program will show you how you can 
use the string magic method. 

While the program is longer than the other two examples, the con- 
cept is really quite simple. First, draw an image on the screen. Save 
the screen image in a string. Draw the next image on the screen. Save 
that in a string, and so forth until all the different images have been 
saved in strings. Then display the strings on the screen one after the 
other to give the illusion of movement. 

Here is how you do it. Line 50 dimensions a string named DM$. 
We'll use the string magic routine to point this string to the display 
memory area. The strings SM1$, SM2$ and SM3$ will be used to save 
the different versions of display memory. Each string is dimensioned 
for only 480 bytes instead of 3840 (the size of a mode 23 screen) 
because we will save only the first 480 bytes of the screen. 

Lines 90 through 110 invoke graphics mode 23 (mode 7 without a 
text window), set the background to dark blue and set our image (this 
time a bat) to black. The POKE 559,0 statement on Line 120 turns off 
the display. This is done for two reasons. First so you can't see the 
different versions of the bat being drawn on the screen. Second, to 
make the program run faster while the different versions are being 
drawn. If you want to see the different versions drawn on the screen, 
omit Line 120 or change it to a REMARK. 

The parameters for the string magic routine are set up on Lines 150 
through 170. The ADDR parameter is set to point to display memory 
and the SIZE parameter is set to 3840 — the size of a mode 23 screen. 
After the string magic routine is called by the GOSUB on Line 190, the 
first version of the bat is drawn four times across the top of the 
screen. This is done on Lines 220 through 260. Next, Line 280 saves 
the first 480 bytes of display memory into the string SM1$. Since the 
variable DM$ now points to the display memory area, the statement 
SM1$ = DM$ will move the first 480 bytes (the dimensioned size of 
SM1$) of display memory into SM1$. 

On Line 300 is the same trick used in example program number 2. 
Here the statement DM$(2) = DM$(1) will move whatever is in position 
one of the string (in this case background color) to the rest of the str- 
ing. This results in the entire screen being cleared to the background 
color. 

The process of drawing four bats across the screen, saving the 
display in a string and clearing the display, is repeated until all three 
versions of the bat are saved in the strings SM1$, SM2$ and SM3$. 
This is done on Lines 220 through 480. 

Since the head and eyes of the bat are the same in each version, the 
subroutine in Lines 660 through 730 is used to draw the head and 
eyes. The POKE 559,34 statement on Line 500 turns back on the 
display. 

Now we're ready to perform the animation by flipping through the 
different versions. Line 520 starts the process by moving the first ver- 
sion stored in string SM1$ into the first 480 bytes of display memory. 
The second version of the bat stored in SM2$ is moved into the next 
480 bytes of display memory. The subroutine in Line 750 moves the 
first 960 bytes of display memory into the next 960 bytes of display 
memory, then the first 1920 bytes to the next 1920 bytes. This gives us 
a full screen of bats. The subroutine also changes the color of the 
bats' eyes just for effect. The process of moving different versions of 
the bat to display memeory is repeated indefinitely by Lines 520 
through 640, giving the illusion of continuous movement. 


The Magic Revealed 

If you don't really care exactly how the string magic routine works 
then yu won't need to read the rest of this section. Just remember the 
string magic routine can be used anytime you need to quickly move or 
modify sections of memory. There are many more applications for the 
routine — just use your imagination. 

Before you can understand exactly how the string magic routine 
works, you must first understand how BASIC stores information about 
variables used in a program. For each variable you enter BASIC 
creates an entry in a table called the Variable Value Table (VVT). The 
address of the VVT is always stored in locations 134 and 135 with the 
low byte first. You can get this address with the following statement: 
VVT = PEEK(134) + PEEK(135)* 256. 

Each entry in the table is eight bytes long. The information in these 
eight bytes varies depending on the type of variable (simple, array or 
string). If the variable is simple the value of the variable is stored right 
in the table entry. However, if it's a string or an array variable, then the 
entry contains information about where in the string/array area the str- 
ing or array can be found. See Table 1 for the format of the VVT entry 
for strings. 
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Armed with this knowledge, we are now ready to demystify the str- 
ing magic routine. This is the first statement: 
A = (ADDR«4PEEK(140) + PEEK(141)*256)). This gets the difference bet- 
ween the beginning of the string/array area (pointed to by locations 
140 and 141) and the new address to which you want the string to 
point. AH =INT(A/256):AL = A-(AH *256). This converts the offset we 
calculated above into the high byte AH and the low byte AL. 

VVT = PEEK(134) + PEEK(135)*256. This poins the variable VVT to 
the beginning of the Variable Value Table. 

Q=VVT + VNUM*8 + 2. This points the variable Q to the third byte 
(where the string/array offset is contained) of the VVT entry for the 
specific string to be modified. Since each table entry is 8 bytes long 
we multiply the variable number by eight to get the exact offset into 
the table. Don’t forget the first variable number is zero, not one. The 
+2 in the statement points Q to the third byte of the entry. 

The next two lines of the string magic routine are not really required 
and can be taken out after the program is debugged and working cor- 
rectly. The lines are simply checks to insure the validity of the ADDR 
parameter and the VNUM parameter. The ADDR must point past the 
beginning of the string/array area. The VNUM must point to a string 
variable. 

POKE Q,AL:POKE Q+ 1,AH. This changes the string/array offset 
(bytes 3 and 4 of the entry) to the new offset. This will cause the string 
to point to our new address. Whenever you reference a string, BASIC 
gets the memory address of the string by adding the offset contained 
in the VVT to the address of the string/array area. Since the value we 
just poked in contains the difference between the beginning of the 
string/array area and the address to which we want to point the string, 
when the string is referenced we will point to the new address. 

POKE Q+2,AL:POKE Q  3,AH. This changes the current size of 
the string to the value contained in the SIZE parameter. The current 
string size is stored in positions 5 and 6 of the VVT entry. 

POKE Q+4,AL:POKE Q + 5,AH:RETURN. This changes the dimen- 
sioned size of the string to the value contained in the SIZE parameter. 
The dimensioned size of the string is stored in positions 7 and 8 of the 
VVT entry. That's all there is to it. Now you know how to use the string 
magic routine. | think you will be surprised at the things you can do 
with it. 


Table 1 
Variable Value Table entry for strings 
(data is listed by position, followed by the contents) 

1. 128 indicates an undimensioned string. 129 indicates a dimension- 
ed string. 
2. Not used for strings. 
3, 4. Offset into the string/array area — low byte first. 
5. 6. Current string length — low byte first. 
7, 8. Dimensioned string length — low byte first. 


— Charlie Parker 


RAMTALKER 


(reprint: STATUS, January, 1985) 


This is the first in a series of articles on the digital recording of 
sound with your Atari. | will present several modifications to what was 
originally an awkwardly coded and hard to follow program first appear- 
ing in BYTE magazine and adapted from that Apple program in the 
July, 1983 issue of ANTIC. In the course of updating this program, we 
should all learn something about programming, digital sound and 
special functions of the Atari. Rather than enumerate the changes 
made to Ed Stewart's program (that program is now almost 
unrecognizable), | will discuss the specific points of the program as it 
now exists. 

The program requires a special circuit to allow the Atari to read an 
analog voltage at Port 3 (sorry, XL owners, we'll fix this problem next 
month; in the meantime, get your circuit built). The schematic is in- 
cluded in this article. | have found the 2 MegOhm potentiometer in- 
cluded in the original circuit schematic may be eliminated with no ill 
effects on its operation. Once you have the circuit built (see accompa- 
nying construction article), you may read a changing voltage (as might 
be produced by a microphone), as a resistance value from 0 to 255. 
The circuit works well in its present form, although we may change it 
in future articles. 

The program, RAMTALKER, is a friendly, fast, easy to use program. 
After initialization, a menu is presented. To perform a desired func- 
tion, press the number corresponding to the function. A BASIC GET 
command eliminates the need to type Return. If the function you pick 
is not the one you want, press Return and the program will take you 
back to the original menu. After a function is selected, the program 
will prompt you for more information. 

RECORD asks for a sample speed. Sample speed is the speed at 
which the program will read the information coming in at the port. A 
sample speed of 1 will render the highest quality sound, while a value 
of 255 will result in nearly unintelligible noise. Once a sample speed 
is specified, followed by a Return, press the Start key to begin recor- 
ding. 


PLAY asks for a sample speed. This will be the speed at which the 
sound information contained in memory will be played back. A good 
speed is usually around 55, giving a natural sound to the playback. Of 
course, you may wish to have your recorded sounds resemble the 
Chipmunks or Lurch, in which case you will choose a higher or lower 
speed. Again, pressing Start after giving a sample speed will begin the 
playback. 

THROUGHPUT asks for a recording sample speed, and will allow 
you to play sounds through the speaker with no time limitations. 
Press Start to begin, and a System Reset will get you out of this one. 

SAVE and LOAD ask you for a file name. Include "D:, of “C: in the 
file specification. The program uses Atari's Central Input/Output (CIO) 
routines, which makes saving and loading sound files quite fast, even 
though sound files are 132 sectors long (single density). 

WAVEFORM PLOT does just what it says. It plots a picture of the 
sound stored in memory (in locations 16384 to 32767, a full 16k) on a 
graph of Time against Frequency. The Time at a sample speed of 1 is 
a little over 7 seconds. | have not measured the frequency response of 
the system. We'll do that in another article. The sound is divided into 4 
separate bands, so we are able to plot the entire contents of memory 
with some detail. To me, the waveform plotting routine is an exciting 
feature of this program. You can say a few words into your Atari, and 
then have the computer show you what your voice looks like. You can 
see how different sounds are similar, and where they are different. 
Looking at a plot of myself saying “file” and "while" gives me quite an 
appreciation for the difficult task a speech recognition system has to 
perform. 

These are the basics of RAMTALKER. In the coming months we will 
modify the program even further. Some things | hope we can do with 
the program: editing the sounds in memory; improvement of sound 
quality, special effects (echo and speed effects); and maybe, just 
maybe, some speech regognition. 

| am sure you have your own ideas as to where this program could 
go. | will be happy to hear your suggestions, criticism and comments. 
Next month will be a quick intro to digital sound theory, a new 
waveform plotting routine, and a few esoteric modifications. 

— Randy Holmes 


RAMTALKER CIRCUIT 


Construction Notes and Parts List 

In place of a microphone, you may want to substitute a simple 
quarter-inch jack or RCA jack to allow you to plug in a guitar, 
keyboard, or tape player. This will give you higher quality sound than 
recording from a mic will. Adjust the volume control on your sound 
source to get the best, most distortion-free sound. 

Parts: 1) .1 uF nonpolarized capacitor, available at Radio Shack. 2) 
NPN transistor 2N2222. This is a general purpose transistor, almost 
any NPN will work. 3) 100kOhm fixed resistor (brown-black-yellow 
resistor code). 4) DB-9 connector plug (joystick plug to you and me). 

You may mount these components on a small circuit board (see 
Figure 2) or simply wire them together without a board; either way will 
work fine. Remember not to keep the soldering iron on the transistor 
too long, or you may damage the component. The same goes for the 
resistor and the capacitor, but they have a higher tolerance for heat. 
Also, be sure to observe the Emitter-Base-Collector specifications in 
the circuit. The back of the transistor package should have the pins 
specified in a diagram much like the transistor in Figure 1. 

After the circuit is constructed, simply run a two-conductor wire 
from the specified points on the circuit to the correct pins (7 & 9) on 
your port plug. Test the circuit by plugging it into Port 3, and run the 
RAMTALKER program. Select the THROUGHPUT option, with a sam- 
ple speed of 1. Plug ina microphone, guitar, tape player or some other 
sound source, and see if any sound comes from the TV/Monitor 
speaker. If not, go back and check your wiring, making sure all con- 
nections are good. With this circuit up and running, you are ready to 
begin digital sound recording with your Atari computer! 


MICROPHONE 





1 4 GROUND (PIN 9) Ó 


Ralph Walden 


Teaches Assembly Language— #4 

For those of you using MAC/65, here are three macros which will 
display text on the screen. Before you use the macro “DISPLAY” or 
“SCREEN” you MUST have first used the macro MESSAGE. Once 
MESSAGE has been used, it can be referred to as a subroutine (as 
well as PUTEDIT). SCREEN will send 1 to 4 bytes to the screen. Exam- 
ple: SCREEN ‘1,32,155’ this will send | SPACE RETURN to the screen. 
After 3 or four bytes, it's more efficient to use DISPLAY. DISPLAY will 
send whatever is in quotes plus on optional second byte parameter to 
the screen. It will NOT send a 0 (a graphics heart). Here are some ex- 
amples of its use: 

DISPLAY "Hello World!'",155 This will display the message in 
quotes and move the cursor to the next line. 

DISPLAY “What is the date?" This will display the message in 
quotes, and leave the cursor at the end of the message. 

You can also call MESSAGE directly as a subroutine (after you have 
used it as a macro) by loading X with the high byte of the address of 
the text, A with the low byte of the address of the text, and a JSR 
MESSAGE. 


0100 MACRO MESSAGE 
0110 MESSAGE STA $EU 
0120 STX $E1 

0130 @MESLOOP LDY #0 
0140 LDA ($EO) 
0150 BEQ GMESEND 
0160 JSR PUTEDIT 
0170 INC $€0 
0180 BNE @MESLOOP 
0190 INC SEI 

0200 BNE @MESLOOP 
0210 @MESEND RTS 
0220 PUTEDIT TAY 
0230 LDA $E407 


0240 PHA 
0250 LDA $E406 
0260 PHA 
0270 TYA 
0280 RTS 


0290 .ENOM 

0300 «MACRO DISPLAY 
0310 LDA 7 @TEXT 
0320 LDX # >@TEXT 
0330 JSR MESSAGE 
0340 JMP OUT 

0550 @TEXT .BYTE %$1 


0360 .IF 40»1 
0370 .BYTE £2 
0380 .ENDIF 
0390 .BYTE 0 
0400 8QUT 


0410 .ENOM 
0420 eMACRO SCREEN 
0430 LDA 7X1 

0440 JSR PUTEDIT 


0450 .IF %0>1 
0460 LDA #%2 
0470 -JSR PUTEDIT 
0480 .ENDIF ` 
0490 .1ք 40»2 
0500 LDA #%3 
0510 JSR PUTEDIT 
0520 .ENDIF 

0530 .IF $053 
0540 LDA #%4 
0550 JSR PUTEDIT 
0560 .ENDIF 

0570 .IF %0>4 
0580 .ERROR "TOO MANY ARGUMENTS IN SCREEN" 
0590 .ENDIF 

0600 .ENDM 
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BOUNTY BOB STRIKES BACK 


As a member of A.C.E. | am writing to all of you out there in "Bounty 
Bob" land. This review is of the exciting new game of "Bounty Bobs”. 
As the old adage goes, this game is worth every penny. “Bounty Bob 
Strikes Back" ($50, Big 5 Software, Box 9078-185, Van Nuys, CA 91409) 
is a sequel to "Miner 2049er", and is by far the best | have ever seen! 
What designer Bill Hogue has done this time really makes your hair 
stand on end — or, | should say, Bounty Bob's hair. 

This new game is as impressive as a new car! The tremendous 
graphics will test your color monitor — that's for sure. There is 4 
channel sound and even program flexibility. That's right, | said flex- 
ibility. You can change several game parameters while playing or 
before startup. You can change (are you ready for this): number of 
lives, number of players, number of joysticks. You can enable or 
disable the Secret Messages scattered throughout the caverns. You 
can change the Bonus Limits at which you get another player. You 
can change the difficulty: Easy - filled in framework stays filled and 
dead Mutants remain dead from one life to the next; Medium - 
Mutants move slightly faster; Hard - filled in framwork resets and dead 
Mutants resurrect. FHEW! Oops not finished yet!! The final skill 
(should | say Insane) level is called “C'MON”. The bonus timer starts 
with 1000 fewer points. We aren't through yet. You can also enable or 
disable the pause key function. You can change the volume of the 
background music, time the high score display is seen, time the main 
screen is seen, and you can change "Yukon Yohan” (the evil deed 
doer for whom Bob searches) to smoker or gum chewer! What this 
means | can only guess. You can change the number of letters 
displayed on the high score screen. Now. You can also change the 
Special Code used by the programmers which is actuated by pressing 
the Option key. What this does is still unknown to me. 

This gives you kind of an idea what is in store for good old Bounty 
Bob. The game resides in a 40k cartridge. There are 25 caverns and a 
lot of special equipment for Bob to use. Bob's task is still to secure all 
levels of the mine, but he mav also capture Yukon Yohan. The Mutants 
have gotten plum nasty. In fact they have multiplied! There's up to 26 
of the little buggers on one of the levels. Are you shakin' in your boots 
yet? By the way, be on the lookout for Mutants who can go up or down 
ladders, and even down slides! It seems as though they got smarter or 
something. 

But Bounty Bob can also do some neat new tricks! He can jump 
short or long distances. And if he eats a Super Energy Food Bar, these 
little goodies will pep old Bob up for those extra long leaps and 
bounds. They do wear off in a short time. 

Added features include Grain Elevators, Gravity Lift, Hydraulic Lifts, 
suction Tubes, Mobile Suction Unit and Acid Rain. There may be 
more, but | haven't seen them yet. With all this stuff to keep you going 
you will have fun with this game. 

PS: Before | forget, remember the phone number trick in Miner 
2049er? Well, it is possible to be trapped in an area where not even 
death is possible. Use the phone number to get you "special help" to 
get out of the situation (this only works on certain screens). 

— Stephen E. Warn 


TTT — FaSt Helena, MT 


Notes from Stan Ockers 


XYGraph 

To use with the  ""APEFACE" 
interface, set switches էօ 1. 
No paper detect (down), 2. 
Print at CR (down), 3. 7 bits 


(up), and 4. Automatic 


Linefeed (up). 
Labels 


To print only a few 
envelopes if you don't want to 
bother with labels and have a 
friction-feed printer, adjust 
the length of the blank 
strings in lines 406 and 412, 


A real improvment in the 
program would be a list 
printing addition as described 
1ո the expansion part of the 
text for "Labels". Hopefully 
ready for next month... 


-Stan 


Atari Computer Enthusiasts 
A.C.E. is an independent, non-profit and tax exempt computer club 
and user's group with no connection to the Atari Company, a division 
of Warner Communication Company. We are a group interested in 
educating our members in the use of the Atari Computer and in giving 
the latest News, Reviews and Rumors. 


All our articles, reviews and programs come from you, our members. 


Our membership is world-wide; membership fees include the A.C.E. 
Newsletter. Dues are $14 a year for U.S., and $24 a year Overseas Air- 


mail and include about 10 issues a year of the ACE Newsletter. 
Subscription Dep't: 3662 Vine Maple Dr., Eugene, OR 97405. 


**President— Robert Browning, 90 W. Myoak Dr., Eugene, OR 97404 


503-689-1513 


Vice Pres— Larry Gold, 1927 McLean Blvd., Eugene, OR 97405 


503-686-1490 


Secretary— Bruce Ebling, 1501 River Loop #1, Eugene, OR 97404 


503-688-6872 


Librarian— Ron and Aaron Ness, 374 Blackfoot, Eugene, OR 97404 


503-689-7106. 
Editors — 


Mike Dunn, 3662 Vine Maple Dr., Eugene, OR 97405 503-344-6193 
— Jim Bumpas, 4405 Dillard Rd., Eugene, OR 97405 503-484-9925 
E.R.A.C.E. (Education SIG Editor)— Nora Young, 105 Hansen Lane, 


Eugene, OR 97404 503-688-1458 


Send 50c stamps or coin ($1 overseas) to the Ness' for the new, 


updated ACE Library List-new in May 84 ! 


Best of ACE books 


Volume 1 contains bound issues of the ACE Newsletter from the first 
issue, Oct 81 to June of 1982 


Volume 2 covers July 1982 to June 1983 
Only $12 each ($2 extra for Airmail). Available only from: 


George Suetsugu 
45-602 Apuapu St 
Kanoehe, HI 96744 


SortFinder 1.2 

A composite index of Atari related articles from 5 popular computer 
periodicals from Apr '81 to June '83, including ACE. Only $6 for ACE 
member from: 

Jim Carr, Valley Soft 

2660 S.W. DeArmond 

Corvallis, OR 97333 
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TYPESETTING 
FROM YOUR COMPUTER 


ATARI OWNERS: If you.have a modem, text editor, and com- 
munícations program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes "on line: 
And its easy to encode your copy with the few typesetting 
commands you need. 
COMPLETE CONFIDENTIALITY GUARANTEED 
— Bonded for your protection —  - 

PUBLICATION DESIGN, EDITING, & PRODUCTION 


editing & Design Services 


30 East 13th Avenue Eugene, Oregon 97401 
Phone 503/683-2657 


Bulletin Board 

(503) 343-4352 
On line 24 hours a day, except for servicing and updating. Consists of 
a Tara equipped 48K Atari 400 with a TARA keyboard, 2 doubie-density 
double sided disk drives with an ATR 8000 interface, 2- 8” double 
density disk drives, an Epson MX80 printer, a Hayes SmartModem; 
running the ARMUDIC Bulletin Board software written by Frank L. Hu- 
band, 1206 N. Stafford St., Arlington, VA 22201. See the Nov '82 issue 
for complete details. 


